SaveToFile mit Anhang aus dem Memofeld

[Bummi]

irgendwie unerquicklich, was wird sein wenn Du Dich an etwas anspruchsvolles wagst....

Delphi-Quellcode:

FormatDateTime('yyyymmdd_hh-nn-ss' ,now)+s + '.txt'

[Luckie]

Wie lautet die Fehlermeldung oder was stimmt nicht? :roll:

[Alterauge]

Jetzt geht es!:)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
  s, d: String;
begin
  s := Memo1.Lines.Text; 
  d := '**';
  Delete(s, 1, Pos(d, s) - 1 + Length(d));
  while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1); 
  while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1); 
  s := Trim(s);
  Memo1.Lines.SaveToFile(FormatDateTime('yyyymmdd_hh-nn-ss__',now)+(s) + '.txt');
  Memo1.Clear;
end;

[DeddyH]

Ich möchte wetten, dass das etwas mit "Parameter" ist :roll:

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1175336)

Ich möchte wetten, dass das etwas mit "Parameter" ist :roll:

Und dafür gibt es was ... das nennt sich OH. :angle:
(wobei die Codevervollständigung und vorallem das Code-Insight da auch recht hilfreich sind)

Zitat:

ich versteh es nicht

- Fehlermeldung durchlesen (bei Fragen ist es nie verkehrt, diese Meldungen auch mit zu erwähnen ... man glaubt es kaum, aber Strg+C funktioniert in Dialogen und in den Logs)
- z.B. in die Hilfe schauen, was wirklich da hingehört
- ...

[Alterauge]

Hura,es geht!

Danke an Alle!

[mkinzler]

Oh Wunder, oh Wunder :mrgreen:

[p80286]

Zitat:

Zitat von Bummi (Beitrag 1175331)

irgendwie unerquicklich, was wird sein wenn Du Dich an etwas anspruchsvolles wagst....

Das wird schon, jeder ist mehr oder weniger lernfähig.

Gruß
K-H