Zitat von
danku:
hm das sind doch aber alles nur "schönheitssachen", zum besseren lesen.
das hat doch aber nicht wirklich mit meinen problem zu tun.
Weil niemand mehr durch den Code durchblickt...
Warum schreiben wir denn alle nicht so:
procedure TForm1.TimerTimer(Sender : TObject) var i : Byte; begin for i := 0 to 4 do begin Showmessage(IntToStr(i) + '. Zahl'); Label1.Text := IntToStr(i) + '. Zahl ist dran'; end; end;
Da bruach man erstmal 5 Minuten bis man sieht, wies funzt, aber so:
Delphi-Quellcode:
procedure TForm1.TimerTimer(Sender : TObject)
var i : Byte;
begin
for i := 0 to 4 do begin
Showmessage(IntToStr(i) + '. Zahl');
Label1.Text := IntToStr(i) + '. Zahl ist dran';
end;
end;