Forum: Object-Pascal / Delphi-Language
Delphi
by TheAn00bis,
7. Feb 2005
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:
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);
Forum: Object-Pascal / Delphi-Language
Delphi
by TheAn00bis,
7. Feb 2005
thx, wenn ich das nicht wie du machen will, sondern so:
function Zeilenumbruch(text: String):String;
begin
while pos(' ', text)<>0 do text:=#13#10;
result:=text;
end;
bekomme ich die Fehlermeldung das #13#10 Char und kein String ist. Kann ich das irgendwie umgehen und trotzdem so machen?
Denn eigentlich ist ein char ja auch ein kleiner String, oder?
Forum: Object-Pascal / Delphi-Language
Delphi
by TheAn00bis,
7. Feb 2005
Ich lese aus einem Memo einen String aus, filtere Sonderziechen heraus und will jetzt jedes Leerzeichen in eine neue Zeile umwandeln, um dann das ganze wieder ins Memo zurückzurschreiben. Wie bekomme ich das mit der neuen Zeile realisiert? Kann ich die schon im String angeben oder muss ich das Memofeld durchlaufen lassen?