unbekannte zeichen löschen...

[shmia]

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