Hallo
ich habe ein Programm mit einer repeat anweisung darin geschrieben, und es lässt sich auch einwandtfrei compilieren nur wenn ich dann den Button klicke ( in dessen Procedure die repeat anweisung steht ) dann hängt sich das Programm auf:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.Button1Click(Sender: TObject);
var a , b: integer ;
begin
repeat
begin
a := pos('Mithrandir', Memo1.Text );
Label2.Caption := IntToStr(a);
b := StrToInt(Label1.Caption);
end;
until (a > 0) or (b = 15 )
........... |
das Programm besitzt ein Memo mit einem text darin, und einen Timer , der im Label1 Secunden zählt:
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Timer1Timer(Sender: TObject);
begin
Zeit := Zeit + 1;
Label1.Caption := IntToStr(Zeit);
end; |
nur es hängt sich wie gesagt auf.....
ausserdem kann es sein das auch wenn eine der beiden bedingungen für die repeat anweisung erfüllt worden ist, nichts passiert , also nicht die anweisungen unter der schleife ausgeführt werden
( ist nur eine böse vorahnung )
danke schonmal für die hilfe bin ehrlich gesagt ratlos woran das wieder mal liegt
