Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
14. Nov 2008
Das mit dem Format ist ja die große Frage ;) Ich würde den String-Parameter übrigens als const übergeben.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
14. Nov 2008
Dafür habe ich break und Stringkonkatenation vermieden ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
14. Nov 2008
Sicherlich, das kann man ja noch verfeinern/erweitern.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
14. Nov 2008
Mal auf die Schnelle dahergetippt:function FirstNumber(const sText: string): string;
var i,j: integer;
begin
SetLength(Result, Length(sText));
j := 0;
i := 1;
while (i <= Length(sText)) and not(sText in ) do
inc(i);
while (i <= Length(sText)) and (sText in ) do
begin