So habs gelöst
Danke an alle die mir helfen wollten aber die Lösung dafür ist 'relativ' einfach
Delphi-Syntax:
Delphi-Quelltext
1:
| procedure Delete(var S: string; Index, Count:Integer); |
Beschreibung
In Delphi entfernt Delete, beginnend mit S[Index], Count Zeichen aus dem String S. S ist eine String-Variable. Index und Count sind Integer-Ausdrücke.
Wenn index größer als die Länge von String oder kleiner als 1 ist, werden keine Zeichen gelöscht.
Werden mit Count mehr Zeichen angegeben, als beginnend bei Index im String vorhanden sind, wird der Rest des Strings gelöscht. Wenn Count kleiner oder gleich 0 ist, werden keine Zeichen gelöscht.
Praktisch sieht das dann wie folgt aus :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.Button1Click(Sender: TObject);
var
textversuch : string;
begin
textversuch := 'Das ist'+#$D#$A#9+' ein Test';
while (Pos(#$D#$A#9,textversuch) > 0) do
begin
Delete(textversuch, pos(#$D#$A#9,textversuch), 3);
end;
ShowMessage(textversuch);
end; |
Hinweis 
#$D oder #$A oder #9 sind jeweils als ein Zeichen zu betrachten!!
Danke an alle
