Hallo Amnon82,
worüber genau stolperst Du?
Wenn ich das richtig verstanden habe, dann hast Du mehrere Zeilen Text.
Jede Textzeile ist so aufgebaut, daß an der Stelle 1..n ein Code/Wort steht, der/das kein Leerzeichen enthält.
An der Stelle n+1 folgt mindestens ein Leerzeichen.
An der Stelle n+1+x folgt weiterer Text (Langtext zum vorhergehenden Code)
also sollte so etwas funktionieren:
Delphi-Quellcode:
pp:=pos(' ',Zeile);
codewort:=copy(Zeile,1,pp-1);
Langtext:=trimmleft(copy(Zeile,pp+1,length(zeile)-pp);
Zeile:=Langtext+'('+Codewort+')';
Gruß
K-H