Bestimmten Eintrag aus Textdatei löschen.

[Die Muhkuh]

Jaja ich schon wieder^^


Ich hab volgenden Code:

Delphi-Quellcode:

procedure TMain.LogoutClick(Sender: TObject);
begin
  Logout.Enabled := false;
  Login.Enabled := true;
  User.Clear;

  Users := TStringlist.Create;
  Users.LoadFromFile('Users.txt');
end;

Wie man vielleicht sieht wird eine Stringlist erstellt und geladen. Per klick auf nen Log in button wird ein Name in eine Txt datei geschrieben. Und per Logout soll dieser wieder gelöscht werden. Aber wie?

[Sharky]

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;

[Die Muhkuh]

Hai,

hab das jetzt so geschrieben:

Delphi-Quellcode:

  try
    Users.LoadFromFile('Users.txt');
    Users.Delete(Users.IndexOf(User.text));
  finally
    Users.Free;
  end;

Aber dann kommt: "Meldung: Der Index der Liste überschreitet das Maximum (-1)".



Was nu?

[Die Muhkuh]

Oki,

dank des Nachtrags vom Fisch geht's!