Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Telefon Optimize
#10

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   Smile
Alıntı:
yarumdan ayrildum gözlerum nemli nemli 

rakı haramdur diye çay içtum demli demli...Heart 
Cevapla


Bu Konudaki Yorumlar
Telefon Optimize - Yazar: yhackup - 30-12-2016, Saat: 16:44
Telefon Optimize - Yazar: engerex - 30-12-2016, Saat: 16:49
Cvp: Telefon Optimize - Yazar: barutali - 30-12-2016, Saat: 17:01
Cvp: Telefon Optimize - Yazar: yhackup - 30-12-2016, Saat: 17:12
Telefon Optimize - Yazar: esrehmaan - 30-12-2016, Saat: 17:31
Telefon Optimize - Yazar: yhackup - 30-12-2016, Saat: 17:41
Cvp: Telefon Optimize - Yazar: esrehmaan - 30-12-2016, Saat: 17:52
Telefon Optimize - Yazar: yhackup - 30-12-2016, Saat: 17:56
Telefon Optimize - Yazar: AliZairov - 30-12-2016, Saat: 18:06
Cvp: Telefon Optimize - Yazar: esrehmaan - 30-12-2016, Saat: 18:07
Cvp: Telefon Optimize - Yazar: barutali - 30-12-2016, Saat: 19:52
Telefon Optimize - Yazar: esrehmaan - 30-12-2016, Saat: 23:08
Telefon Optimize - Yazar: yhackup - 31-12-2016, Saat: 00:19
Telefon Optimize - Yazar: yhackup - 03-01-2017, Saat: 13:36



Konuyu Okuyanlar: 1 Ziyaretçi