Schleife abbrechen...

[horst]

guten morgen
wer mag mir sagen wie ich diese schleife abbrechen kann?
  for i := 1 to StringGrid1.RowCount -1 do //Gesamt

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject); 
var 
  FileName, NewFile: OleVariant; 
  i, j: Integer; 
  s: string; 
begin 
  for i := 1 to StringGrid1.RowCount -1 do 
  begin 
    s := StringGrid1.Cells[8, i]; 
    with TRegistry.Create do 
   try 
      RootKey := HKEY_CURRENT_USER; 
      if OpenKey('\Software\VB and VBA Program Settings\FRITZ!fax\Print', True) then 
      begin 
        WriteString('Microsoft Word - test.doc', s); 
        end; 
    finally 
      CloseKey; 
      Free; 
      WordApplication1.Connect; 
      FileName := 'C:\test.doc'; 
      WordApplication1.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, 
        EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
        EmptyParam, EmptyParam); 
      WordDocument1.Close; 
      WordApplication1.PrintOut; 
      sleep(2000); 
      WordDocument1.Disconnect; 
    end; 
  end; 
end;

[Luckie]

break

[horst]

yo
nur.....wenn das ding am laufen ist krieg ich nichts mehr geklickt (oder nach dem 20x mal vielleicht).

[Duffy]

Hallo Horst.
schau mal nach "Application.ProcessMessages"
bye
Claus

[horst]

hallo
reagiert zwar nicht direkt, aber es klappt.

[Burning_Chrome]

hi!

eine schleife mit break abzubrechen ist nur einen hauch weniger haarstraeubend als sie mit goto zu verlassen... es ist besser, sich solche sachen zu verkneifen und statt dessen andere konstruktionen zu verwenden. ich sprech hier aus eigener (bugsuchfrustrations-) erfahrung...

Best_Regards
Burning_Chrome

[horst]

hallo...

Zitat:

und statt dessen andere konstruktionen zu verwenden.

und welche andere konstruktionen sind das?
grüße horst

[Sharky]

Hai horst,

mal so aus dem stehgreif:

Delphi-Quellcode:

var
 abbruch : Boolean   // Globale Variable um die Schleife beenden zu können

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx               : Integer;
begin
  ndx := 1;
  abbruch := False;
  while (ndx < StringGrid1.RowCount - 1) and (not abbruch) do
    begin
      inc(ndx);
    end;
end;

[choose]

Hallo Sharky,

wenn Du eine globale Variable verwendest und mehrere Fenster kreierst, würden alle Schleifen in allen Fenstern abbrechen oder gar nicht erst starten, wenn Du abbruch auf True setzt.

Darüber hinaus birgt der Einsatz von Application.Processmessages viele Gefahren, die ich zT hier dargestellt habe.

[Sharky]

Zitat von choose:

...wenn Du eine globale Variable verwendest und mehrere Fenster kreierst, würden alle Schleifen in allen Fenstern abbrechen oder ....

Hai choose,

der Code soll den Ansatz der Notwendigen Schleifenkonstruktion zeigen. Nicht mehr und nicht weniger. Das es noch etwas Feinarbeit benötigt sollte klar sein.