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