schnellste Variante für String Reduktion auf 1..9,0 und "." ","

[Daniela.S]

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;