Nur zahlen im string

[Gehstock]

Danke an alle hab den Code von marabu genommen

Delphi-Quellcode:

function ReadNumber:String;
var
  i, iLength: Integer;
begin
  Form1.Memo1.Lines.clear;
  s:= 'AT+CPBS=ON';
  Form1.SendCMD;
  Form1.Memo1.Lines.clear;
  s:= 'AT+CPBR=1';
  Form1.SendCMD;
  Form1.Memo1.Lines.Add(sReadData);
  result:=Form1.memo1.Lines[1];
  delete(result,1,10);
  delete(result,13,19);
  iLength := 0;
  for i := 1 to Length(result) do
  begin
    if result[i] in ['0'..'9'] then
    begin
      Inc(iLength); 
      if iLength <> i then 
        result[iLength] := result[i];
    end;
  end;
  Result := Copy(result, 1, iLength);
end;

Danke nochmal