Zeichen aus String entfernen

[Kurt56]

Delphi-Quellcode:

var i, j: integer;
    s: string;   // zwischenfeld
begin 
s:='';   //zwischenfeld löschen
  for i := 0 to Length(TextBox2.Text) - 1 do 
    for j := 0 to 9 do 
    begin 
      if TextBox2.Text[i] <> Zahl[j].ToString then   //bei gleichheit, zahl weglassen 
                                                     // also ungleiche zeichen kopieren in s
        s:=s+ TextBox2.Text[i]; 
    end; 
TextBox2.Text:=s;  //ergebnis übertragen
end;

Eine Zuweisung auf ein Byte einer Stringvariable unbekannter Länge geht nicht.
Aber Zeichen in diese Stringvariable anfügen (append) geht. Dann das Ergebnis in die Textbox rückübertragen.

Gruß
Kurt