Ausgabe in Datei

[the_source]

Hallo,

mein derzeitiges Programm gibt alle Ausgaben auf ein Memo aus.
Dabei wird jedesmal eine Variable erstellt und denn als neue Zeile eingefügt.
etwa so:

Delphi-Quellcode:

Ausgabe:= 'blabla';
Memo1.Lines.Add(Ausgabe);

Wie kann ich erreichen, dass der Inhalt der Variable in eine Datei geschrieben wird, so dass ich dann z.B. eine txt-Datei habe in der die Ausgaben aufgelistet sind?


MfG
the_source

[3_of_8]

Memo1.Lines.SaveToFile.

OH hilft.

[fwsp]

Memo1.Lines.SaveToFile(DateiName);

[the_source]

Hmm, anscheinend kann man nur einen String in eine Datei speichern, denn bei mir kommt die Meldung "Inkompatible Typen: Text und String".

Allerdings habe ich es auch anders gemeint. Der Inhalt der Variable "Ausgabe" soll jedes mal in die Datei geschrieben werden. Zudem würde mich interessieren, wie ich mein Programm dazu bringe, die Datei automatisch zu erstellen, oder noch besser einen Dialog anzeigt, der mir die Möglichkeit gibt, den Ort und Namen der Datei selbst zu wählen.

[fwsp]

guck mal nach TSaveDialog in deiner Delphi Hilfe

Edit1:
Zeig mal deinen Code.

[himitsu]

Zitat von fwsp:

guck mal nach TSaveDialog in deiner Delphi Hilfe

Damit kann man aber die Daten nicht in einer Datei abspeichern ... man kann höchstens einen Dateinamen auswählen ... zum Speichern ist z.B. SaveToFile da.

[fwsp]

Damit kann er aber sagen wie die datei heißen soll und wohin sie gespeichert werden soll.

[Michael Habbe]

Zitat von the_source:

Wie kann ich erreichen, dass der Inhalt der Variable in eine Datei geschrieben wird, so dass ich dann z.B. eine txt-Datei habe in der die Ausgaben aufgelistet sind?

Na, ganz einfach:

Delphi-Quellcode:

procedure LogToFile(s: String);
var
  f: Textfile;
begin
  AssignFile(f, 'c:\log.txt');     // Datei mit Variable verbinden
  if FileExists('c:\log.txt') then // Datei vorhanden?
    Append(f)                      // Datei zum Schreiben öffnen 
  else
    Rewrite(f);                    // Datei erstellen und öffnen
  WriteLn(f, s);                   // Übergebenen Text schreiben
  CloseFile(f);                    // Datei schließen
end;

[3_of_8]

Und um es jedesmal zu speichern musst du dir schon selber ne Klasse basteln. Sowas zum Beispiel:

Delphi-Quellcode:

type
  TLog = class
  protected
    FFileName: String;
    procedure SetFileName(FileName: String);
  public
    constructor Create(FileName: String);
    procedure Write(Text: String);
    property FileName: String read FFileName write SetFileName;
  end;

...

implementation

constructor TLog.Create(FileName: String);
begin
  inherited Create;
   Self.FileName:=FileName;
end;

procedure TLog.SetFileName(FileName: String);
var f: TextFile;
begin
  FFileName:=FileName;
  assignfile(f, FFileName);
  if not fileexists(FFileName) then
      rewrite(f);
  closefile(f);
end;

procedure TLog.Write(Text: String);
var f: TextFile;
begin
   assignfile(f, FFileName);
  append(f);
  writeln(f, Text);
  closefile(f);
end;