Ich habe hier folgendes Funktion:

zusammenfalten · markieren

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?

Dies ist deine ganze Scheife:

markieren

Delphi-Quellcode:

for J := 0 to I - 1 do
        SkipChars := SkipChars + Length(SynEdit1.Lines[J]);

Die ist auch merkwürdig wegen dem ;
for I := LetzteZeile + 1 to SynEdit1.Lines.Count do;

markieren

Code:

for I := LetzteZeile + 1 to SynEdit1.Lines.Count do[b][color=#ff0000];[/color][/b]

Du hast eine leere Schleife ohne Schleifenrumpf programmiert.

for I := LetzteZeile + 1 to SynEdit1.Lines.Count do;

Reingefallen! Das ist eine leere Schleife.

Mist, da war einer schneller

Autsch, sowas muss echt weh tuhen.
Da habe ich wohl unbewusst ein Semikolon dahin gemacht und wundere mich, wieso das ganze net geht.
Danke für eure Hilfe

Zitat von Robert Marquardt:

Mist, da war einer schneller

Ich heiße nicht umsonst Luckie, ich poste schneller, als mein Schatten.