Hallo Alle zusammen
Ich wollte mal einen Account Speicher Programmieren weil ich öfters mal meine Passwörter vergesse ...
So siehts aus:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
memo1.Lines.Add('Product : '+ edit1.Text);
memo1.Lines.Add('Username : '+ edNickname.Text);
memo1.Lines.Add('Password : '+ edpassword.text);
memo1.Lines.Add('------------------------------');
memo1.Lines.SaveToFile('C:\accounts.txt');
memo1.Lines.LoadFromFile('C:\accounts.txt');
if memo1.Text = '' then showmessage("Leer")
end if
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('C:\accounts.txt');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('C:\accounts.txt');
end;
end.
Nur jetzt wen ich ein Account save und dannach noch einen überschreibt der einfach das erste =(
Hat jemand eine lösung ?
//Bin ein Frischer Delphi anfänger
