Zeichen aus String entfernen

[malo]

Delphi-Quellcode:

procedure TWinForm.TextBox2_KeyPress(sender: System.Object; e: System.Windows.Forms.KeyPressEventArgs);
var i, j: integer;
begin
  for i := 0 to Length(TextBox2.Text) - 1 do
    for j := 0 to 9 do
    begin
      if TextBox2.Text[i] = Zahl[j].ToString then
        TextBox2.Text[i] := '';
    end;
end;

Dieser Code verursacht einen Fehler beim compilieren "Der linken Seite kann nichts zugewiesen werden". Warum das? oder, wie kann ich anders das Zeichen Textbox2[i] entfernen?

[Jasocul]

Du musst dir eine Zwischen-Variable definieren. Du kannst auf die Eigenschaft Text deiner TextBox so nicht zugreifen.

[malo]

Zitat von Jasocul:

Du musst dir eine Zwischen-Variable definieren. Du kannst auf die Eigenschaft Text deiner TextBox so nicht zugreifen.

Ah, danke

Ein Problem noch:
s[i] := ''; bringt den Fehler "inkompatible Typen: Char und String". Was kann man da machen?

[CalganX]

Hi,
geraten:

Delphi-Quellcode:

''.ToChar;
// oder
''[1]

Könnte funktionieren...

Chris

[Binärbaum]

Zitat von malo:

Ein Problem noch:
s[i] := ''; bringt den Fehler "inkompatible Typen: Char und String". Was kann man da machen?

Na z.B.
s[i] := #0; wäre eine Lösung.

MfG
Binärbaum

[malo]

Zitat von Chakotay1308:

Hi,
geraten:

Delphi-Quellcode:

''.ToChar;
// oder
''[1]

Könnte funktionieren...

Chris

.ToChar gibts leider nicht, und " ''[1]" bringt mir eine Exception

[malo]

Zitat von Binärbaum:

Zitat von malo:

Ein Problem noch:
s[i] := ''; bringt den Fehler "inkompatible Typen: Char und String". Was kann man da machen?

Na z.B.
s[i] := #0; wäre eine Lösung.

MfG
Binärbaum

Danke

[CalganX]

Hi,
zu meinem Vorschlag von oben:
''.ToCharArray[0]; {oder} ''.ToCharArray[1] sollte dennoch funktionieren

Chris

[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