Показать цифры

[DSK]

надо показать цифры на форме
12345
показывается 1 на секунду, пропадает, затем правее 2 на секунду и т.д.

[Афанасий[vedma]]

Timer тебе помощник

[VadikV]

Несколько Label (по количеству цифр) на форму с visible := false. затем по таймеру переключаешь у нужных visible.

[spamer]

var
  s: string;
  i: Integer;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  s := '12345';
  i := 1;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if i > Length(s) then
  begin
    Timer1.Enabled := False;
    Exit;
  end;
  Caption := s[i];
  inc(i);
end;

[megostudent]

var
i:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i=+1;
Label1.Caption:='пошли секунды' +' '+ inttostr(i);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

i:=0;
end;

если по кнопке то

var
i:integer;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i-1;
Label1.Caption:='пошли секунды' +' '+ inttostr(i);
if i=0 then
i:=strtoint(edit1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=0;
timer1.Enabled:=true;
end;

end.

У нас принято оформлять код специальным тегом. Кнопка #. Модератор