Suchen der Textteile

[DeddyH]

Wo ist das Problem?

Delphi-Quellcode:

EditZahlen.Text := '';
EditBst.Text := '';
for i := 1 to Length(DeinString) do
  if (DeinString[i] in ['a'..'z','A'..'Z']) then
    EditBst.Text := EditBst.Text + DeinString[i]
  else if (DeinString[i] in ['0'..'9']) then
    EditZahlen.Text := EditZahlen.Text + DeinString[i];

[edit] Oder mit case:

Delphi-Quellcode:

for i := 1 to Length(DeinString) do
  case DeinString[i] of
    'a'..'z',
    'A'..'Z' : EditBst.Text := EditBst.Text + DeinString[i]; 
    '0'..'9' : EditZahlen.Text := EditZahlen.Text + DeinString[i];
  end;

[djpaull]

Zitat:

Wo ist das Problem?

Habe in der Schule nicht aufgepasst :oops: Aber jetzt funzt alles wie es soll. Danke euch :thumb: