Problem beim abbrechen einer for Schleife

Dusch Das · Beiträge: 21

Hallo, ich habe folgendes Problem:

Ich möchte eine for Schleife mit einem Button abbrechen und habe deswegen folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

for i := 1 to n do
 application.processMessages;
 ShellExecute(handle,'open','net.exe',pchar(' send ' + Temp + ' ' + NetSend),'',sw_normal); // Nachricht an Remote PC mit Schleife
 if abbr then begin break;
 end;
 end;

Abbrechknopf:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button7Click(Sender: TObject);
begin
 abbr := true;
end;

abbr habe ich als Boolean definiert

nun sagt er aber, dass break nicht in der Schleife liegt. Wie bekomme ich das break in die Schleife?

raziel · Verfasst: Mi 28.07.04 16:42

Indem Du nach dem do noch ein begin einfügst...

raziel

_________________
JSXGraph

Dusch Das · Beiträge: 21

Danke klappt

, Asche über mein Haupt :oops:

Hab jetzt aber noch ein Problem nachdem ich den Knopf gedrückt hab, is abbr auf true gesetzt, daher kann ich nach dem Abbrechen die Schleife nicht nochmal starten. Wie kann ich den Wert von abbr löschen, nachdem dieser die Schleife beendet hat?

raziel · Verfasst: Mi 28.07.04 16:56

Einfach nach der Schleife abbr := false;setzen.
Beim Weg: Du kannst das

markieren

Delphi-Quelltext

1:
2:
3:

begin
{...}
end;

bei Deiner if-Konstruktion weglassen!

_________________
JSXGraph

Dusch Das · Beiträge: 21

Ok vielen Dank, Problem ist jetzt gelöst

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme