K
kenmen
Unregistered / Unconfirmed
GUEST, unregistred user!
有个程序，我的意图是想记录十条数据，每条的“时间”和“日期”
另外存于其它文件，当按“导入”时，这些数据会存入定义的数组中
（Myarr[num].Str）。我想按“导入”后，这些数据要开始和系统时间作比较。
若相等，就会弹一个信息框出来。（是要循环比较）.
这段比较的代码我这样写，我用了TIMER控件。但不能实现，且会出现死循环。
请问该怎改？
procedure Toptiondlg.Timer1Timer(Sender: TObject);
var
cout,m:integer;
begin
cout:=10;
m:=1;
while cout<>0 do
begin
if m<>10 then
begin
for m:=1 to 10 do
if Myarr[m].str=(datetostr(now)+timetostr(now)) then
begin
showmessage('Time Now!');
cout:=cout-1;
end;
end
else
for m:=10 downto 1 do
if Myarr[m].str=(datetostr(now)+timetostr(now)) then
begin
showmessage('Tine Now!');
cout:=cout-1;
end;
end;
另外存于其它文件，当按“导入”时，这些数据会存入定义的数组中
（Myarr[num].Str）。我想按“导入”后，这些数据要开始和系统时间作比较。
若相等，就会弹一个信息框出来。（是要循环比较）.
这段比较的代码我这样写，我用了TIMER控件。但不能实现，且会出现死循环。
请问该怎改？
procedure Toptiondlg.Timer1Timer(Sender: TObject);
var
cout,m:integer;
begin
cout:=10;
m:=1;
while cout<>0 do
begin
if m<>10 then
begin
for m:=1 to 10 do
if Myarr[m].str=(datetostr(now)+timetostr(now)) then
begin
showmessage('Time Now!');
cout:=cout-1;
end;
end
else
for m:=10 downto 1 do
if Myarr[m].str=(datetostr(now)+timetostr(now)) then
begin
showmessage('Tine Now!');
cout:=cout-1;
end;
end;