Forum: Object-Pascal / Delphi-Language
Delphi
by Fridolin Walther,
14. Nov 2008
Funktioniert nur wenn die Ziffer am Anfang steht. Es wurde ja bereits eingeräumt, daß das nicht immer der Fall ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by Fridolin Walther,
14. Nov 2008
Das könnte man auf folgendes komprimieren:function GetHausnummer(Anschrift : string) : string;
begin
Result := Copy(Anschrift, 1, Pos(',', Anschrift)-1);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Fridolin Walther,
14. Nov 2008
Aber die Bedingung bei Deinen IF Statements liest sich grauenhaft :P.
Uuups ... das war ja gar nicht Deddy. Das war Himitsu mit dem "<= '9'" ;).
Forum: Object-Pascal / Delphi-Language
Delphi
by Fridolin Walther,
14. Nov 2008
function GetFirstNumber(s : string) : string;
var
i : Integer;
begin
for i := 1 to Length(s) do
if s in
then Result := Result + s
else
if Result <> '' then Break;
end;