Fehler: Listenindex überschreitet das Maximum (1)

**AnyKey**

Hi,

auf die Gefahr hin das ich einfach nur zu blöd bin den fehler zu finden und es eigentlich ganz einfach ist und diese frage bestimmt schon hundert mal gestellt wurde, frage ich euch trotzdem:

Wo liegt im folgenden Quelltext der Fehler?? Ich finde ihn einfach nicht, bekomme aber dauernd die Meldung Listenindex überschreitet das maximum (1)

zusammenfalten · markieren

Delphi-Quellcode:

			class function TStringManipulation.SyntaxHighlighting(Edit: TRichEdit; Progressbar: TProgressbar): Bool;

var i           : Integer;

var Linemax     : Integer;

var AResultList : TStringList;

begin

  try

    AResultList := TStringList.Create;

    AResultList.Add(Edit.Text);

    Linemax := Edit.Lines.Count;

    ProgressBar.Position := 0;

    ProgressBar.Max := Linemax;

    Edit.Lines.Clear;

    for i := 0 to Linemax-1 do

    begin

      with Edit do

      begin

        SelText := AResultList.Strings[i];

        SelStart := 9;

        SelLength := 5;

        SelAttributes.Color := clBlue;

        SelAttributes.Style := [fsBold];

//        SelText := AResultList.Strings[i];

//        Lines.Add(AResultList.ValueFromIndex[i]);

      end;

      ProgressBar.Position := Progressbar.Position + 1;

    end;

    FreeAndNil(AResultList);

    result := true;

  except

    FreeAndNil(AResultList);

    result := false;

  end;

end;

Wäre super wenn jemand den Fehler finden würde, ich steig nich mehr durch...

Danke
AnyKey

Fehler: Listenindex überschreitet das Maximum (1)

Fehler: Listenindex überschreitet das Maximum (1)

Forumregeln