為什麼是重覆執行? |
|
尚未結案
|
|
tea15
初階會員   發表：64 回覆：72 積分：27 註冊：2005-06-15 發送簡訊給我 |
private
{ Private declarations }
f,t:string;
Function MyWorkDate(InDate : TDate) : TDate;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
datetimepicker1.Date:=EncodeDate(strtoint(copy(edit1.Text,1,4)),strtoint(copy(edit1.Text,5,2)),strtoint(copy(edit1.Text,7,2)));
edit2.Text:=datetostr(myworkdate(datetimepicker1.Date));
if adoQuery1.Locate('holiday', edit2.Text, []) then ////-----為什麼老是這一行出現重覆執行的動作?////
begin
if radiobutton1.Checked then //繳款日
begin
edit2.Text:=datetostr(myworkdate(datetimepicker1.Date-1))
end
else if radiobutton2.Checked then//兌現日
begin
edit2.Text:=datetostr(myworkdate(datetimepicker1.Date+1))
end
end;
Function Tform1.MyWorkDate(InDate : TDate) : TDate;
var
DOW :word;
R: TDate;
begin
R:= InDate;
DOW := DayOfTheWeek(R); if RadioButton1.Checked then
begin
Case DOW of
6 : R := R -1;
7 : R := R -2;
1 : R := R -3;
else
R := R-1;
end
end
else if RadioButton2.Checked then
begin
Case DOW of
5 : R := R +3;
6 : R := R +2;
7 : R := R +1;
else
R := R+1;
end
end; label1.caption := '星期'+IntToStr(DayOfTheWeek(R));
Result := R;
end; 一直是這樣的錯誤，我該如何修改呢?
|
|
pgdennis
資深會員 發表：41 回覆：526 積分：443 註冊：2002-05-23 發送簡訊給我 |
|
|
tea15
初階會員 發表：64 回覆：72 積分：27 註冊：2005-06-15 發送簡訊給我 |
|
|
bestlong
站務副站長  發表：126 回覆：734 積分：512 註冊：2002-10-19 發送簡訊給我 |
|
|
lutienlung
一般會員  發表：3 回覆：5 積分：1 註冊：2005-04-01 發送簡訊給我 |
|
|
tea15
初階會員 發表：64 回覆：72 積分：27 註冊：2005-06-15 發送簡訊給我 |
|
|
bestlong
站務副站長 發表：126 回覆：734 積分：512 註冊：2002-10-19 發送簡訊給我 |
發表時間：2005-09-28 09:04:45
IP:220.130.xxx.xxx 未訂閱
系統時間：2024-06-23 11:44:05
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |