in eine Ini – Datei den Text von einem Memofeld speichern

[Remote1]

ich bräuchte ja eigentlich jetzt nur noch einen tipp wie ich das
LoadFromFile() umgehen kann damit die ganze sache etwas schneller wird
halt eine art ADD funktion oder so was inder art

Delphi-Quellcode:

if form1.Memo1.Lines[0]=''
then
  begin
   Form1.Memo1.Clear;
   exit;
  end;
pfad:='D:\memo.txt';
temp:=TStringList.Create;
if not fileexists(pfad)
then
  begin
   temp.Clear;
   temp.SaveToFile(pfad);
  end;
temp.LoadFromFile(pfad);
temp.Add('['+datetimetostr(now)+']');
temp.Add(memo1.Text);
temp.Add('');
temp.SaveToFile(pfad);
memo1.Clear;
temp.Clear;

hab ja auch schon überlegt die dateigröße abzufragen und ab einer bestimmten größe eine neue datei anzulegen (damit hätte ich zumindest nicht so das problem mit dem laden), aber dann hab ich natürlich zick verschieden dateien
auch blöd :gruebel:

ich muss vielleicht auchnoch sagen, dass bei jedem enter in eine datei gespeichert wird!
hab da halt nur bei Str+V probleme, da ja dort kein enter gedrückt wird sondern schon welche drinnen sind und ich somit in der ini nur die erste zeile hab und nicht den ganzen text

[Remote1]

ach chris,
das mit eine zeile im memo = eine zeile in ini
ist zwar schön und gut, aber mehr wie 32 Items pro section gehen meiner meinung nach nicht
zudem fehlen ja da wieder meine enter (eine zeile soll bis zum enter gehen--> dies können im memo aber bsp 3 zeilen sein)

[Sourcemaker]

Hi,

der Ansatz die CRLF auszutauschen ist richtig (bzw. möglich, wie schon Vorredner sagten so große Daten speichert man nicht in Ini-Files). Als Ersatzzeichen kannst du z.B. #1 benutzen den kann man nicht von Hand eingeben.

Mfg.

Frank

[Remote1]

ja danke an alle,
aber ich habs jetzt miz dateiarbeit gemacht (im prinzip eine eigene ini applikation geschrieben)

wen interessiert hier der quellcode:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var 
f : Textfile;
begin
if form1.Memo1.Lines[0]=''
 then
  begin
   Form1.Memo1.Clear;
   exit;
  end;

AssignFile(f, pfad);     //pfad vorher als const festgelegt
try
 if FileExists(pfad) = False
  then Rewrite(f)
  else Append(f);
 Writeln(f,'['+datetimetostr(now)+']');
 Writeln(f, memo1.text);
 Writeln(f,'');
finally
 CloseFile(f);
 memo1.Clear;
end;

end;

also noch mal danke an alle!