TAPI - lineMakeCall - Format der Telefonnummer

[DeddyH]

Statt der ganzen StringReplace-Aufrufe sollte man vielleicht einfach alles herausfiltern, was keine Ziffer ist. Nicht großartig getestet:

Delphi-Quellcode:

function FilteredNumbers(const NumberStr: string): string;
const
  NUMBERS = ['0'..'9'];
var
  PSrc, PDest, PCurrent: PChar;
begin
  SetLength(Result, Length(NumberStr));
  PSrc := PChar(NumberStr);
  PDest := PChar(Result);
  PCurrent := PDest;
  while PSrc^ <> #0 do
    begin
      {$IFDEF UNICODE}
      if CharInSet(PSrc^, NUMBERS) then
      {$ELSE}
      if PSrc^ in NUMBERS then
      {$ENDIF}
        begin
          PCurrent^ := PSrc^;
          PCurrent := CharNext(PCurrent);
        end;
      PSrc := CharNext(PSrc);
    end;
  SetString(Result, PDest, PCurrent - PDest);
end;