Integer aus String mit anderen Zeichen herraussuchen

[SirThornberry]

du könntest alle zeischen des Edits durchgehen und wenn eine zahl gefunden wird merkst du dir diesen teil. Also in etwa so:

Delphi-Quellcode:

var LNumber: String;
    LCount: Integer;
    LByte: Byte;
begin
  LNumber := '';
  for LCount := 1 to Length(Edit1.Text) do
  begin
    LByte := Byte(Edit1.Text[LCount]);
    if (LByte in [48..57]) then
      LNumber := LNumber + Char(LByte);
  end;
  if LNumber = '' then
    ShowMessage('Keine Zahl da')
  else
    ShowMessage(LNumber); //um das ganze als Integer zu erhalten: StrToInt(LNumber)