SaveToFile mit Anhang aus dem Memofeld

**p80286**

@DeddyH

**Alterauge**

Hallo,

das mit dem Dateinamen bekomme ich hin:

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

 Memo1.Lines.SaveToFile(FormatDateTime('yyyymmdd_hh-nn-ss', now) + '.txt');

 Memo1.Clear;

 FileListBox1.Update;

end;

Memo1 wird ausgelsen und als .txt Format gespeichert.(Dateiname lautet dann; Datum+Uhrzeit.txt)!

**vagtler**

DeddyH meinte den von Dir gewünschten Dateinamen...

**Alterauge**

Ach so,

Richtig ! Das bekomme ich nicht hin!

Ich weiss nicht was er meint mit: Pos() und Copy()?

Versuche einfach noch eine kleine Info aus dem Memofeld, mit an den Dateinamen zu hängen.

Inhalt Memofeld:

TEXT TEXT TEXT TEXT TEXT **ID 999

Es geht um die Zeichen **ID 999.

**DeddyH**

Jahaaa, Du kannst in einem Dateinamen kein * haben, da das ein unzulässiges Zeichen ist. Versuch das einfach mal im Windows-Explorer, dann wirst Du es merken.

**Alterauge**

Ok! Hast Recht!

Dann was nach ** kommt! Also ID999 (Beispiel)

**DeddyH**

Nochmal: mit Pos() die Position des "**" ermitteln und ab da (+2) alles bis zum Stringende mit Copy() in einen weiteren String kopieren. Den hängst Du dann an den Dateinamen an. Das ist doch kein Hexenwerk.

SaveToFile mit Anhang aus dem Memofeld

AW: SaveToFile mit Anhang aus dem Memofeld

AW: SaveToFile mit Anhang aus dem Memofeld

AW: SaveToFile mit Anhang aus dem Memofeld

AW: SaveToFile mit Anhang aus dem Memofeld

AW: SaveToFile mit Anhang aus dem Memofeld

AW: SaveToFile mit Anhang aus dem Memofeld

AW: SaveToFile mit Anhang aus dem Memofeld

Forumregeln

p80286 Registriert seit: 28. Apr 2008 Ort: Stolberg (Rhl) 6.659 Beiträge FreePascal / Lazarus	#1 AW: SaveToFile mit Anhang aus dem Memofeld 19. Jul 2012, 19:12 @DeddyH Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen R.E.D retired error detector
	Zitat

vagtler Registriert seit: 9. Jul 2010 Ort: Köln 667 Beiträge Delphi 2010 Professional	#3 AW: SaveToFile mit Anhang aus dem Memofeld 19. Jul 2012, 19:17 DeddyH meinte den von Dir gewünschten Dateinamen...
	Zitat

Alterauge Registriert seit: 4. Mär 2011 306 Beiträge Delphi 2010 Professional	#4 AW: SaveToFile mit Anhang aus dem Memofeld 19. Jul 2012, 19:37 Ach so, Richtig ! Das bekomme ich nicht hin! Ich weiss nicht was er meint mit: Pos() und Copy()? Versuche einfach noch eine kleine Info aus dem Memofeld, mit an den Dateinamen zu hängen. Inhalt Memofeld: TEXT TEXT TEXT TEXT TEXT ID 999 Es geht um die Zeichen ID 999.
	Zitat

Alterauge Registriert seit: 4. Mär 2011 306 Beiträge Delphi 2010 Professional	#6 AW: SaveToFile mit Anhang aus dem Memofeld 19. Jul 2012, 19:42 Ok! Hast Recht! Dann was nach ** kommt! Also ID999 (Beispiel)
	Zitat