Stringoperationen :: Performancemessung am bsp ANSI->ASCII

[negaH]

Teste mal folgendes:

Delphi-Quellcode:

function AnsiToIBMAscii(const Source: String): String; 
var 
  I: Integer; 
  C: Char;
  D,S: PChar; 
begin 
  SetLength(Result, Length(Source)); 
  S := PChar(Source);
  D := PChar(Result);
  while true do
  begin
    C := S^;
    Inc(S);
    case C of 
        #0: Break; 
      #223: C := #225; // von ß 
      #228: C := #132; // von ä 
      #246: C := #148; // von ö 
      #252: C := #129; // von ü 
      #220: C := #154; // von Ü 
      #196: C := #142; // von Ä 
      #214: C := #153; // von Ö 
    end; 
    D^ := C;
    Inc(D);
  end;
end;

Gruß Hagen