Thema: Delphi For-schleife und Loop

Einzelnen Beitrag anzeigen

Frank Ranis

Registriert seit: 15. Okt 2008
17 Beiträge
 
#2

AW: For-schleife und Loop

  Alt 6. Feb 2018, 07:17
Hallo huyennguyen (hä, was für ein Benutzername) ,

Hallo
Ich bin neu in Delphi und möchte euch etwas fragen. Ich brauche wirklich eure Hilfe

In der Aufgabe, ein Wort wird gegeben. Jedes mal wird Button geklickt, werden die Wortteile eingetragen:
1.mal: "w"
2.mal: "wo"
3.mal: "wor"
4.mal: "wort"
5.mal: "w" - und geht weiter

Ich hab geschrieben:

Delphi-Quellcode:
w:=Edit1.text;
st:='';
for k:= 1 to length(w) do
 begin
  st:=st + w[k];
  Edit2.text:=st;
 end;
das geht leider auch nicht

Kann jemand mir helfen? Danke im Voraus!
deine Ausgabeschleife ist an sich ist ja funktionstüchtig.
Du mußt aber bedenken , das der Rechner etwas flotter ist , als dein Auge.
Die Schleife wird ja innerhalb von Sekundenbruchteilen durchlaufen.
Also baut man zu Testen erst mal eine kleine Wartestelle ein.

Delphi-Quellcode:
  
 sleep(200); // <- damit die Schleife nicht rasend schnell durchlaufen wird eine kuze Pause machen
Und dann werden die Bildschirmelemente immer erst aktuallisiert , wenn die Application mal Zeit dafür findet.
Man muß dann eine Ausgabe erzwingen.

Delphi-Quellcode:
 
  edit2.Update; // <- Das Edit 2 sofort ausgeben / updaten

Alles zusammen in der folgenden Routine.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var w,st:string;
    k:integer;
begin
w:=Edit1.text;
st:='';
for k:= 1 to length(w) do
 begin
  st:=st + w[k];
  Edit2.text:=st;
  edit2.Update; // <- Das Edit 2 sofort ausgeben / updaten
  sleep(200); // <- damit die Schleife nicht rasend schnell durchlaufen wird eine kuze Pause machen
 end;
end;
Gruß

Frank
  Mit Zitat antworten Zitat