Danke
Ich hab es vorher auch mit einer Stringlist versucht, das klappte auch solang ich den Inhalt im Programm in die Stringlist eingetragen habe
und dann auch sofort ins memo übernehme, jedoch habe ich probleme diese stringlist korrekt abzuspeichern.
Muss ich auf was achten wenn ich eine Stringlist, die sich in einem Record befindet, abspeichere ?
Die Stringlist wird korrekt geschrieben und später auch ausgelesen, nur gespeichert wird sie falsch.
Paar Schnipsel zum erklären (Variablennamen ersetzt !):
Delphi-Quellcode:
tRecord = record
name : string[30];
text : tstringlist;
end;
var Record : tRecord;
Delphi-Quellcode:
// So setz ich das Memo in eine Stringliste
text := TStringlist.Create;
for I:=0 to zeilenanzahl do // Zeilenanzahl enthält die Anzahl der Zeilen im Memo
begin
Record.text.add(frmMain.memMain.lines[I]);
end;
Delphi-Quellcode:
procedure SaveRecord;
var I:integer;
Fle : file of tRecord;
begin
assignfile(Fle,filename);
rewrite(Fle);
for I:=1 to N do // N = Recordanzahl
begin
write(Fle,Record[I]);
end;
closefile(Fle);
end;
Wie gesagt - Innerhalb des Prgramms funktioniert es super, nur wenn ich die vorher abgespeicherte Datei lade scheint die Stringlist leer zu sein.
Auch in der datei selber finde ich keinen Inhalt der Stringlist.
(Der Rest des Records wird richtig abgespeichert und auch gelesen)
Ich nehme an, dass ich die Stringliste anders abepseichern muss ?