Jaja ich schon wieder^^


Ich hab volgenden Code:

markieren

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?

Hai Spider,

jaja, ich auch schon wieder :-;

Schaue dir mal die Funktion IndexOf der Stringliste an.

Nachtrag:

zusammenfalten · markieren

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;

Hai,

hab das jetzt so geschrieben:

markieren

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?

Oki,

dank des Nachtrags vom Fisch geht's!