IF-Problem

[xZise]

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;