Einzelnen Beitrag anzeigen

Benutzerbild von Remote1
Remote1

Registriert seit: 22. Okt 2003
Ort: Dippoldiswalde
252 Beiträge
 
Delphi 6 Personal
 
#14

Re: in eine Ini – Datei den Text von einem Memofeld speicher

  Alt 23. Okt 2003, 08:57
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!
  Mit Zitat antworten Zitat