Moin,

sorry aber ich wusste einfach nicht was ich suchen sollte:

Ich möchte das ein Label einen Text ausgibt, d. h. nacheinander sollen die einzelnen Buchstaben eingeblendet werden. Also wie wenn ich vorm Monitor sitze und zugucke wie jemand einen Text schreibt.
Wie geht das ?

Vielen Dank,

Du könntest mittels Timer immer einen Buchstaben mehr im Label darstellen lassen.

Ähm ja, ich hab mir das jetzt einfach mal so gedacht:

markieren

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var
   test: string;
   i : integer;
begin
test := 'Das ist ein Test';
i := i + 1;
label1.Caption := test[i];
end;

Funzt aber irgendwie bicht.
Irgendwie bin ich zu blöd...

zusammenfalten · markieren

Delphi-Quellcode:

var
  Form1: TForm1;
  Wort: string = 'Hallo, das ist ein Demo-Text';
  Loop: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Loop := 0;
  Label1.Caption := '';
  Timer1.Interval := 250;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Loop = Length(Wort) then
  begin
    Loop := 0;
    Label1.Caption := '';
  end;

  inc(Loop);
  Label1.Caption := Label1.Caption + Wort[Loop];
end;

markieren

Delphi-Quellcode:

var i: integer;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  theText = 'Das ist ein Test';
begin
  i := i + 1;
  label1.Caption := label1.caption + theText[i];
end;

Aenogym

edit: zu lahm

Vielen Dank an euch beide !

oder auch

zusammenfalten · markieren

Delphi-Quellcode:

procedure Wait(Time: Word);
  var Start: Cardinal;
begin
  Start := GetTickCount;
  while GetTickCount-Start <= time do begin
    Application.ProcessMessages;
    Sleep(0);
  end;
end;

procedure TForm1.ShowText(Text: String);
  var i : Integer;
begin
  Label1.Caption := '';
  for i := 1 to Length(Text) do begin
    Label1.Caption := Label1.Caption + Text[i];
    Wait(500);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowText('Hallo');
end;

@Christian: Nur interessehalber, wozu hast du

Sleep(0); in deinem Code?

Edit: Sry verguckt