и ещё 1 вопрос
почему в конце исполнения зависает программа?
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
text: string;
i2:integer;
begin
text:=edit1.Text;
i2:= Length(text) ;
While i2=i do
timer1.Interval:=0;
i:=i+1;
if text[i]='d' then
edit2.Text:=edit2.Text+'8'
else
edit2.Text:=edit2.Text+'4';
end;
Админ: Пользуемся тегами!