Einzelnen Beitrag anzeigen

Benutzerbild von Kurt56
Kurt56

Registriert seit: 6. Apr 2005
Ort: Wedemark
47 Beiträge
 
Delphi XE8 Professional
 
#9

Re: Zeichen aus String entfernen

  Alt 6. Apr 2005, 17:23
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
Kurt
  Mit Zitat antworten Zitat