Hallo,
hab jetzt ma versucht, ein Programm zu schreiben bei dem man Notizen in eine Checklistbox machen kann.
Das funktioniert auch alles aber ich möchte, das wenn man das Programm beedet und dann wieder startet das man die Notizen wieder hat.
Außerdem soll das Programm die beim schließen automatisch in eine .txt datei schreiben.
das sieht bis jetzt so aus:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var i:integer;
sl:TStringList;
begin
sl := TStringList.Create;
try
for i := 0 to CheckListBox1.Items.Count - 1 do
begin
if (CheckListBox1.Checked[i] = true) then
sl.Add(CheckListBox1.Items[i]);
end;
finally
sl.SaveToFile(sDir + '\Notes.txt'); \\sDir ist der Pfard in dem das Programm ist! (sDir:=GetCurrentDir;)
sl.Free;
end;
end;
er erzeugt zwar eine Text datei aber schreibt nichts in sie.
und wie man die dann wieder ausliest weiss ich leider auch nich...hoffe ihr habt nen paar tipps für mich!