Man, man, man,
das war ja einfach
. Typisch auf die einfachen sachen komm ich net drauf
.
So geht's:
Delphi-Quellcode:
procedure TMain.Button1Click(Sender: TObject);
var
Users: TStringlist;
begin
Users := TStringlist.Create; //Stringlist machen
Users.LoadFromFile('Users.txt'); //Das hat gefehlt!
try
Users.Add(User.text); //Hinzufügen
except
Showmessage('Sorry aber du kannst dich nicht einloggen'); //Wenns net geht dann Meldung bringen
end;
Users.SaveToFile('Users.txt'); //Speichern
end;