SaveToFile mit Anhang aus dem Memofeld

[Alterauge]

Hallo, eine weitere Frage

Der Inhalt von Memo1, wird als *.txt Format so abgespeichert. =: 2012-07-19_13-15-45.txt
Hier der Quelltext dazu:

Memo1.Lines.SaveToFile(FormatDateTime('yyyy-mm-dd_hh-nn-ss', now) + '.txt'); Soweit auch alles Richtig und in Ordnung!

Jetzt zur Frage:
Würde gerne eine kleine Information aus dem Memofeld,
mit an den Dateinamen hängen.

Hier ein Beispiel:
So würde der Inhalt im Memofeld aussehen:

testeingabe1*testeingabe2*testeingabe3**1245

Jetzt würde ich gerne immer die Zahl nach dem Sonderzeichen ** mit übernehmen!
Das der Dateiname so ausieht: 2012-07-19_13-15-45**1245.txt

[DeddyH]

Und wo ist nun die Frage? Pos() Copy() könnten das sein, was Du benutzen musst. Aber ohne Gewähr, da ja wie gesagt keine Frage gestellt wurde

[edit] P.S.: http://www.delphipraxis.net/125006-w...n-richtig.html [/edit]

[mkinzler]

Ich galube ich war nicht deutlich genug:
Bitte gebe deinen Themen einen aussagekräftigen Betreff!

Detlef hat hierfür eine gute Anleitung geschrieben. (Siehe vorigen Beitrag)

[Alterauge]

So vielleicht besser?

[vagtler]

Zitat von Alterauge:

So vielleicht besser?

Nein. Weder ist Dein Text noch der Titel verständlich.

DeddyH hat Dir doch schon einen Link gegeben. Dein Verhalten hier im Forum lässt eigentlich nur den Schluss zu, dass Dir die Verhaltensregeln hier einfach sowas von egal sind, solange Du einfach nur möglichst schnell einen Quellcode für Deine Problemstellungen bekommst.

[Alterauge]

Hallo Zusammen,
natürlich möchte ich mich an die Verhaltensregeln halten!

Wenn man schnell nach einer Lösung sucht, und nur wenig Zeit hat
kann es vorkommen, dass hier und da Fehler gemacht werden.
Was aber keine böse Absicht ist.

Werde mir jetzt beim programmieren mehr Zeit nehmen,
und weniger Fragen stellen!

[DeddyH]

Was gefällt Dir an meinem Vorschlag mit Pos() und Copy() nicht? Mal abgesehen davon, dass ich bezweifeln möchte, dass Du so einen Dateinamen hinbekommst.

[p80286]

@DeddyH

[Alterauge]

Hallo,

das mit dem Dateinamen bekomme ich hin:

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...