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ı:
(30-12-2016, Saat: 16:44)yhackup Adlı Kullanıcıdan Alıntı: 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;
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