Memo.Text Schleife

[p80286]

Zitat von Alterauge:

Jetzt zum Problem: Sind keine ** vorhanden, wird der ganze Inhalt vom Memofeld als
Dateiname benutzt. Das ist schlecht!
Würde gerne, wenn die ** fehlen einen Fixtext benutzen!

Delphi-Quellcode:

procedure TForm1.Timer3Timer(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('yyyy-mm-dd_hh-nn-ss__',now)+(s) + '.txt');
      end;
   end;
end;

Ich war, was Deine Lernfortschritte angeht, wohl etwas zu optimistisch.
Was soll diese Anhäufung von end; ?

Kommt demnächst noch eine Frage weil Du das Speichern eines Memos durch einen Timer steuerst?

Die Routine tut genau das was sie soll

Code:

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[COLOR="red"]**1245[/COLOR]

Jetzt würde ich gerne immer die Zahl nach dem Sonderzeichen ** mit übernehmen!

Vielleicht solltest Du Dir ein paar Gedanken darüber wenn nicht alles so ist wie Du es gerne hättest, z.B. wenn dort nur ein * vorhanden ist oder nach ** keine weiteren Daten vorhanden sind.
Und was verstehst du unter "Fixtext" und was willst Du mit Ihm erreichen?

Gruß
K-H

Edith:
Memo.Text Schleife ... Bahnhof, Kofferklauen