gespeicherten Text ausgeben

[Andre93]

hey...
also das starten könntest du durch die OnClick-Methode deines EditFeldes auslösen.
in dieser methode würde ich dann einen timer aktivieren. Das machst du in dem du Eigenschaft Enabled
des Timers auf True setzt. der Timer kann dann eine Variable hochzählen. Diese Variable entspricht dann der Position des Buchstabens der hinzugefügt werden soll. wenn alle buchstaben nacheinander zum Text der im EditFeld angezeigt wird hinzugefügt wurden. muss sich der timer wieder deaktiviern.

wenn man davon ausgeht das der text der in Edit1.Text steht in Edit2.Text soll und dein timer Timer1 heißt dann müsste das in etwa so aussehen:

Delphi-Quellcode:

{...}

var
  Form1: TForm1;
  Index : Integer;

implementation

{$R *.dfm}

procedure TForm1.Edit2Click(Sender: TObject);
begin
 Timer1.Enabled := True; //Timer aktivieren
 Index := 0; //"Index an den Start des Strings setzen"
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Index < length(Edit1.Text) then //bis zum Textende
  begin                            //
   Inc(Index);                    //Index hochzählen
   Edit2.Text := Edit2.Text + Edit1.Text[Index]; //und Buchstaben anhängen
  end
 else                       //wenn Text zuende durchgegangen
  Timer1.Enabled := False; //Timer Deaktivieren
end;