Telefon Optimize

[esrehmaan]

uses System.SysUtils, System.Character;

function Filter(const Input: string; const Keep: TFunc<Char, Boolean>): string;
var
 C: Char;
 N: Integer;
begin
 SetLength(Result, Length(Input));
 N := 0;
 for C in Input do
   if Keep ( C ) then  
   begin
     inc(N);
     Result[N] := C;
   end;
 SetLength(Result, N);
end;

function IsNotLetter(C: Char): Boolean;
begin
 Result := not C.IsLetter;
end;

function NumaraDuzelt(GelenNo : string) : String;
begin
Case length(Gelenno) of
      1..10 : result:=Filter(Gelenno, IsNotLetter) ;
      11..200: result:=RightStr(Filter(GelenNo, IsNotLetter),10);
End
End;

Buda öyle Ellamm