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