Also folgendes Problem ich hab 2 For do schleifen ineinander
Delphi-Quellcode:
If Fehler <> true Then
begin
For x := min_x to max_x do
begin
For y := min_y to max_y do
begin
If x < y Then
begin
z1 := x*x + y*y;
z := sqrt (z1);
if round(z)=z then
begin
Ausgabe := ( inttostr (x) + '; ' +inttostr (y) + '; ' + FloattoStr (z));
Memo.Lines.Add (Ausgabe);
Liste.Add(Ausgabe);
Counter := Counter + 1;
end;
end;
end;
end;
Memo.Lines.Add(inttostr (counter) + ' Zahlentrippel');
counter := 0;
end;
So sieht der Quelltext aus
x und y können in dem prog schon mal 1.000.000 werden (wie es der benutzer halt will)
solange das Programm die schleife berechnet kann ich nix anderes mit dem Programm machen
deswegen meine Frage
Wie kann ich während die Schleife läuft in dem Programm auf nen button drücken und wie kann der die Schleife anhalten und stoppen
Ich hoffe es ist klar was ich meine
wenn nicht posten und ich erklärs
Axxus