Etwas, womit man leichter zurecht kommt:
---------------------
Aso... Bevor der Code kommt ^^ Falsche Sparte! Definition von "Freeware" (siehe Hauptseite): "Freeware-Programme (mit oder ohne Sourcecode) zum Testen und Diskutieren"
---------------------
Speichern:
Delphi-Quellcode:
memoFile := TStringList.Create;
try
memoFile.Add(IntToStr(High(memos)));
for i := 0 to High(memos) do
begin
memoFile.Insert(i + 1, memos[i].Count);
memoFile.Add(memos[i].Text);
end;
memoFile.SaveToFile(FILENAME);
finally
memoFile.Free;
end;
Lesen:
Delphi-Quellcode:
memoFile := TStringList.Create;
try
memoFile.OpenFromFile(FILENAME);
for i := 0 to StrToIntDef(memoFile[0], 0) do
begin
bufferText := '';
if i < StrToIntDef(memoFile[0], 0) then
for j := StrToInt(memoFile[i + 1]) to StrToInt(memoFile[i + 2]) - 1 do
begin
bufferText := bufferText + memoFile[j];
end
else
for j := StrToInt(memoFile[i + 1]) to memoFile.Count - 1 do
begin
bufferText := bufferText + memoFile[j];
end
memos[i].Text := bufferText;
end;
finally
memoFile.Free;
end;