Forum: Sonstige Fragen zu Delphi
Delphi
by oldmax,
30. Nov 2006
hi
Gut, ich will noch einmal ergänzend etwas zugeben:
Vergessen hab ich, den RefStr zuzuweisen.
...
RefStr:=MeinText;
Ausg:='';
...
Ok, passiert, wenn man den Code nicht prüft. Die Funktion aber ist etwas mehr als nur erster und letzter Textteil, es ist auch eine Möglichkeit, beliebig viele Textelemente mit Separatoren zusammen zu setzen und hinterher wieder zu zerlegen.
Forum: Sonstige Fragen zu Delphi
Delphi
by oldmax,
29. Nov 2006
Hi
Ein Vorschlag, der vielleicht etwas ungeschickt aussieht, dafür dir aber für solche Fälle immer eine Lösung bildet.
Funktion TMyForm1.GetTextElement(ElementNr: Integer; MeinTrennzeichen, MeinText: String): String;
Var RefStr : String;
Ausg : String;
ende : Integer;
i : Integer;
begin
Ausg:='';