Dateien speichern unter dem Begriff aus einen Memo

[mlspider]

Und schon wieder ein Problem. Ich möchte eine Text Datei speichern, die als Dateiname das eingebene Wort aus einem Memo erhält und automatisch die TXT-Endung angehangen bekommt.

Ist sowas überhaupt möglich? Wenn ja, wie???

Danke

[alcaeus]

Hi mlspider,

Dateiname := Memo1.Text+'.txt'; Für das Speichern verwende mal diesen Link: Datei speichern

Greetz
alcaeus

[mlspider]

steig ich nicht ganz hinter! Irgendwie bin ich zu blöd dazu!!!

[SubData]

Zitat von mlspider:

steig ich nicht ganz hinter! Irgendwie bin ich zu blöd dazu!!!

Was genau hast du daran nicht verstanden?

[alcaeus]

Zitat von mlspider:

steig ich nicht ganz hinter! Irgendwie bin ich zu blöd dazu!!!

Und ich nutze jetzt meine telepathischen Fähigkeiten und finde heraus was du nicht verstehst. Womit gibts Probleme?

Zitat von mlspider:

die als Dateiname das eingebene Wort aus einem Memo erhält und automatisch die TXT-Endung angehangen bekommt

Den Text im Memo bekommst du mit Memo1.Text, und die Endung .txt wird drangehängt. Das alles wird in einer Stringvariable (Dateiname) gespeichert.
Das Speichern hängt dann davon ab, WAS du speichern willst.

Greetz
alcaeus

[mlspider]

Eigentlich nur eine leere TXT-Datei. Diese soll eben nur als Dateiname den Text aus Memo1 erhalten und txt automatisch als Extension bekommen.

[alcaeus]

Hi mlspider,

Delphi-Quellcode:

var
  F: TextFile;
  Dateiname: String;
begin
  Dateiname := ExtractFilePath(Application.ExeName)+Memo1.text+'.txt';
  AssignFile(F, Dateiname);
  Rewrite(F);
  CloseFile(F);
end;

ich hoffe das hilft

Greetz
alcaeus

[SubData]

Delphi-Quellcode:

AssignFile(Datei, Memo1.Text + '.txt');
Rewrite(Datei);
CloseFile(Datei);

Edit: Zu langsam :/

[mlspider]

Ihr seit ja wirklich super!!!!!!!!!!

Es funzt! So nun gehe ich heute nicht mehr auf dem "S" (Geist)!!!

Danke nochmals!!!

[mlspider]

Jetzt muß ich euch doch noch mal nerven. Jetzt bekomme ich mit Deinen Code:

Delphi-Quellcode:

var 
  F: TextFile; 
  Dateiname: String; 
begin 
  Dateiname := ExtractFilePath(Application.ExeName)+Memo1.text+'.txt'; 
  AssignFile(F, Dateiname); 
  Rewrite(F); 
  CloseFile(F); 
end;

Vom Compiler folgende Meldung:

E/A-Fehler 123

Was ist nun schon wieder faul???