wie parse ich das?

[s14]

Hi,
so könnte es gehen:

Delphi-Quellcode:

procedure TForm1.Button12Click(Sender: TObject);
var
  sIn, sOut: String;
  i : Integer;
begin
  sIn  := '9,2Test';
  sOut := '';
  i := 1;
  while i <= Length(sIn) do
  case sIn[i] of
    #3, #2, #$1F: begin
           Inc(i);
           While sIn[i] in ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0', ','] do Inc(i);
         end;
    else begin
           sOut := sOut + sIn[i];
           Inc(i);
         end;  
  end;
  // sOut enthält nun den String ohne Sonderzeichen
  showmessage(sOut);
end;

Gruß
s14