Строки

[kholoshchak]

Всем добрый день!!!
Подскажите если кто знает. Как вывести слово в Label по одной букве с использованием таймера или цикла?

[FaTaL]

Например так:

var
s : string;
c : string;
i : integer;
begin
 s := 'Проверка';
 c := '';
 Label1.Caption := '';
 Form1.Repaint;
 for i:=1 to Length(s) do
  begin
   c := c + s[i];
   Label1.Caption := c;
   Label1.RePaint;
   Application.ProcessMessages;
   Sleep(700);
  end;
end;

[kholoshchak]

Спасибо. То что надо...

[DiemonStar]

Надпись из Edit1 выводится в Label1 после нажатия Button1. Повторное нажатие останавливает вывод.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := '';
  Label1.Tag := 1;
  Timer1.Interval := 200;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := copy(Edit1.Text , Label1.Tag, 1);
  Label1.Tag := Label1.Tag + 1;
  If Label1.Tag > length(Edit1.Text) then
    Label1.Tag := 1;
end;