Ich mach so etwas gerne über Pointer, weil es einfach am Schnellsten ist. Keine Ahnung ob das jetzt die schönste Art ist, aber ich hatte damit noch nie Probleme.
Erkennt aber natürlich nicht wenn zwei Zahlenblöcke angegeben werden. Lässt sich aber leicht insofern umschreiben, dass die Routine nach dem ersten Zahlenblock abbricht und nur diesen zurückgibt.
Zum Beispiel für Delphi7 (AnsiString):
Delphi-Quellcode:
function ReduceString( str:
String ):
String;
var
i : Integer;
len : Integer;
p1 : PByte;
p2 : PByte;
begin
len := Length( str );
p1 := @str[1];
p2 := p1;
while len > 0
do begin
case p1^
of
Ord('
0')..Ord('
9'),
Ord('
,') :
begin
p2^ := p1^;
Inc( p2 );
end;
end;
Inc( p1 );
Dec( len );
end;
SetLength( str, Integer(p2) - Integer(str) );
Result := str;
end;
Delphi2010 (
Unicode):
Delphi-Quellcode:
function ReduceString( str:
String ):
String;
var
i : Integer;
len : Integer;
p1 : PWord;
p2 : PWord;
begin
len := Length( str );
p1 := @str[1];
p2 := p1;
while len > 0
do begin
case p1^
of
Ord('
0')..Ord('
9'),
Ord('
,') :
begin
p2^ := p1^;
Inc( p2 );
end;
end;
Inc( p1 );
Dec( len );
end;
SetLength( str, (Integer(p2) - Integer(str))
div 2 );
Result := str;
end;