Bestimmten Eintrag auus StringList löschen

[ByStones2]

Zitat von marabu:

Hallo,

dein Code löscht die durch Edit2 bestimmten Zeilen nur dann, wenn sie am Anfang von onList stehen, weil du deinen index nicht anpasst.

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var
  lLine: Integer;
Begin
  lLine := 0;
  // onlist.BeginUpdate;
  While ( lLine < onlist.Count ) Do
    If SameText(onlist[lLine] = Edit2.Text 
      Then onlist.delete(lLine)
      Else Inc(lLine);
  // onlist.EndUpdate;
end;

Getippt und nicht getestet.

Grüße vom marabu

das sieht gut aus aber es geht nicht, obwohl ich die fehlende klammer hinter sametext da gemacht hab es gibt folgende fehler:

Delphi-Quellcode:

[Pascal Fehler] Unit1.pas(204): E2250 Es gibt keine überladene Version von 'SameText', die man mit diesen Argumenten aufrufen kann
[Pascal Fehler] Unit1.pas(204): E2010 Inkompatible Typen: 'string' und 'Boolean'
[Pascal Warnung] Unit1.pas(243): W1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein
[Pascal Fataler Fehler] Chat.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Update:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var
  lLine: Integer;
Begin
  lLine := 0;
  // onlist.BeginUpdate;
  While ( lLine < onlist.Count ) Do
    If AnsiSameText(onlist[lLine],Edit2.Text) Then
    onlist.delete(lLine)
      Else Inc(lLine);
  // onlist.EndUpdate; 
end;

so habs ich jetzt und es geht auch nicht, langsam glaub ich delphi mag mich nich ma
ehr ...