| Код |
procedure TForm3.Button2Click(Sender: TObject);
var
str, urll, portt: string;
i,p,leng,ttt : integer;
//ttt:TTimer;
begin
//ttt:=TTimer.Create;
num := Memo1.Lines.Count;
Edit1.Text:=IntToStr(num);
i:=0;
while i<num do begin
str:=Memo1.Lines.Strings[i];
//Edit2.Text:=str;
Timer1.Enabled:=true;
Timer1.Interval:=(5000);
Timer1.Enabled:=true;
leng:=length(str);
p:=pos(':',str);
ttt:=leng-p;
urll:=copy(str,0,p-1);
portt:=copy(str,p+1,leng-p+1);
Edit2.Text:=urll;
edit3.Text:=portt;
i:=i+1;
end;
|
вставляю такой код, и таймер не тормозит процесс :( нужно чтобы строчки по 1 выводил с небольшим интервалом
а пролетает сразу все :( как притормозить ? |
)