Schleife abbrechen...

[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;