Einzelnen Beitrag anzeigen

TheAn00bis

Registriert seit: 7. Jun 2004
386 Beiträge
 
#8

Re: Leerzeichen -> neue Zeile

  Alt 7. Feb 2005, 17:41
Danke, Leute!

Ist zwar wahrscheinlich viel zu umständlich, aber ich als Delphi Noob bin ganz stolz auf die Funktion. Falls sie noch irgnedjemand gebrauchen kann:

Delphi-Quellcode:
function Zeilenumbruch(text: String):String;
var position: Integer; anfang, ende:String;
begin
while pos(' ', text)<>0 do begin
position:=pos(' ', text);
anfang:=copy(text, 0, position-1);
ende:=copy(text, position+1, length(text));
text:=anfang+#13#10+ende;
end;
result:=text;
end;
Kann mir jemand sagen, ob das irgnedwie einfacher geht? (Ich will ja nicht auf meinem Delphi-Niveau stehen bleiben )
  Mit Zitat antworten Zitat