Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Telefon Optimize
#4
(30-12-2016, Saat: 17:01)barutali Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
(30-12-2016, Saat: 16:44)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Selamlar,
Girilen telefon numarasına en başarılı nasıl optimize edebilirim.

Telefon numarası nasıl girilirse girilsin, 5554443322 şeklinde çıktı alacak bir fonksiyon yazmam gerekiyor

Örnek veri girişleri şu şekilde olabilir
00905554443322,
+905554443322,
905554443322,
0554443322,


uses System.StrUtils;

var
 FTmp : String;
begin
 FTmp := '00905554443322';
 FTmp := RightStr(FTmp, 10); // Sağdan sola 10 karakter al.
end;



Bende böyle bir fonksiyon yapmıştım Smile  Kulağımı tersten tutmuşum.  - RightStr(FTmp, 10); // Sağdan sola 10 karakter al.- bu fonksiyonu bilmiyordum

function TForm2.PhoneOpt(Phone: string): string;
var
i,s:integer;
begin
 Phone := Trim(StringReplace(Phone, '+', '', [rfReplaceAll]));
 if (Length(Phone) < 11) then Result := Phone;
 s := Length(Phone)-1;
 if (Length(Phone) > 10 ) then
 begin
    for I := 0 to 9 do
    begin
       Result := Phone.Chars[s]+ Result;
       Dec(s);
    end;
 end;
end;
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
WWW
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