Zitat von
glkgereon:
also ich habs jetzt so gelöst:
...
aber das mit den doppelten Zeilenzmbrüchen löschen funzt nicht
Dein Code ist ja auch wieder falsch!!! 
Delphi-Quellcode:
temp:=RichEdit1.Text;
for i:=0 to length(temp)-1 do if temp[i] in zeichen then temp2:=temp2+temp[i];
// das Ergebnis ist nun in Variable temp2
// aber nun arbeitest du wieder mit temp (=die orginal-daten)
for i:=length(temp)-2 downto 0 do
begin
if (temp[i]=temp[i+1]) and (temp[i]=' ') then delete(temp,i,1);
if (temp[i]=temp[i+1]) and (temp[i]=#13) then delete(temp,i,1);
end;
// auch falsch: der geänderte Text wird an den bestehenden Text angehängt
// richtig wäre RichEdit2.Lines.Text := ....
RichEdit2.Lines.Add(temp2);
end;
Ich empfehle dir, unbedingt die
function StrKeepChars zu verwenden.
Vorteile- auf Geschwindigkeit optimiert
- garantiert fehlerfrei, da gut getestet
- wiederverwendbar (dazu sind ja Proceduren & Funktionen da)
- erhöht die Lesbarkeit des Programmcodes