Ich habe hier folgendes Funktion:
Delphi-Quellcode:
procedure TForm1.FindDialog1Find(Sender: TObject);
var
I, J, PosReturn, SkipChars: Integer;
begin
for I := LetzteZeile + 1 to SynEdit1.Lines.Count do;
begin
PosReturn := Pos(FindDialog1.FindText,SynEdit1.Lines[I]);
LetzteZeile := I ;
if PosReturn <> 0 then {found!}
begin
SkipChars := 0;
for J := 0 to I - 1 do
SkipChars := SkipChars + Length(SynEdit1.Lines[J]);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturn - 1;
SynEdit1.SetFocus;
SynEdit1.SelStart := SkipChars;
SynEdit1.SelLength := Length(FindDialog1.FindText);
Break;
end;
end;
If PosReturn = 0 Then showmessage('Nichts gefunden');
end;
Die Variable "LetzteZeile" ist hier eine globale Variable und wird bei CreateForm auf 0 initialisiert.
Sobald ich das ganze kopilieren will, bekomme ich folgende Fehlermeldung:
[Error] Unit1.pas(134): BREAK or CONTINUE outside of loop
Wenn ich diese Fehlermeldung deute, dann schließe ich daraus, dass dieses "Break" nicht innerhalb der Schleife steht, doch das tut es aber.
Oder bin ich nur zu blind und habe da etwas übersehen?