Hai Spider,
jaja, ich auch schon wieder :-;
Schaue dir mal die Funktion
IndexOf der Stringliste an.
Nachtrag:
Delphi-Quellcode:
procedure TMain.LogoutClick(Sender: TObject);
begin
Logout.Enabled := false;
Login.Enabled := true;
Users := TStringlist.Create;
try
Users.LoadFromFile('Users.txt');
Users.Delete (IndexOf(Dein_User_Name));
Users.SaveToFile('Users.txt');
finally
Users.Free;
end;
User.Clear;
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"