Hi,
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var
lLine: Integer;
Begin
lLine := 0;
While ( lLine < onlist.Count ) Do
If onlist.strings[lLine] = Edit2.Text Then
Begin
onlist.delete(lLine);
End;
end;
Auch wenn die bedingung erfüllt ist wird der eintrag nicht gelöscht..
ich weiß leider nich warum, ich hoffe ihr könnt mir helfen???
Manchmal gibt es einen Fehler dass das Maximum überschritten werde ...
Gruß ByStones