Bestimmte Zahlen aus einem String auslesen

[Fridolin Walther]

Zitat von Sir Rufo:

Wenn das immer in dem Format 15, Hauptstraße / NRW14 kommt, dann würde ich das hier nehmen

Delphi-Quellcode:

function GetHausnummer( Anschrift : string ): string;
var
  PosKomma : integer;
begin
  PosKomma := Pos( ',', Anschrift );
  if PosKomma > 1
  then
    Result := copy( Anschrift, PosKomma - 1 )
  else
    Result := '';
end;

Das könnte man auf folgendes komprimieren:

Delphi-Quellcode:

function GetHausnummer(Anschrift : string) : string;
begin
  Result := Copy(Anschrift, 1, Pos(',', Anschrift)-1);
end;