Hallo alle zusammen!
Ich schreibe gerade ein Programm zur Darstellung der Koch Kurve und würde jetzt gerne eine Art Statusanzeige einbauen, die anzeigt, ob das Programm gerade rechnet, oder nicht. Dazu wollte ich am Anfang der Prozedur 'Berechne...' und vor dem Ende 'Bereit' in ein Label schreiben.
PROBLEM:
'Berechne...' wird nie angezeigt. Es ist die ganze Zeit nur 'Bereit' zu lesen (ist auch beim Programmstart dort eingetragen). Wenn ich das Label beim Programmstart leer lasse und dann auf den Button klicke, erscheint ebenfalls nur 'Bereit' am Ende der Prozedur...
Hier mal der betreffende Quelltext:
Delphi-Quellcode:
procedure TForm1.It_SchritteButtonClick(Sender: TObject);
var fehler : boolean;
begin
StatusLabel.Caption:='Berechne...';
fehler:=false;
TRY
n:=StrToInt(It_SchritteTEdit.Text);
except
fehler:=true;
end;
IF (fehler=false) AND (StrToInt(It_SchritteTEdit.Text)>=0)
AND (StrToInt(It_SchritteTEdit.Text)<=10) THEN
begin
x:=0; y:=Image1.Height-1; laenge:=Image1.Width; winkel:=0;
Image1.Canvas.MoveTo(ROUND(x),ROUND(y));
IF KochRadioButton.Checked THEN Koch_Kurve(n,laenge,winkel);
IF SquareRadioButton.Checked THEN Square(n,laenge,winkel);
end
ELSE showmessage ('Fehler! Bitte geben Sie nur ganze Zahlen zwischen 0 und 10 ein!');
StatusLabel.Caption:=('Bereit');
end;