Edit hane sayısı sorunu

[trpasport]

Merhaba Arkadaşlar sorucam soruyu nasıl soracağım konusunda sıkıntılıyım özel kompenantlar ve delphi ofline ile bir program yaptım bittiği ama sıkıntılar var programın amacı modem hariç farklı bir cihazdan caller id almak ve ses kaydetmek bir edit var arama yapınca edit içinde her tuşa bastığında bir karakter ekliyor ben bunun 7.karaktere geldiğini nasıl anlarım birde cep çevirdiğini yani sıfıra basarsa 11.karakter gidecek ysni şehir dışı veya cep gibi ,sıfıra basmadan numara çevirirse şehir içi 7 karakter gidecek sonra listwiev yada başka biryere kaydedicem.

[conari]

Kod: Tümünü seç

len(edit1.text)

text uzunluğunu verir.

[conari]

Pardon

Kod: Tümünü seç

Length(edit1.Text)

olacaktı.

[barutali]

CallerID ile numara ve ses almayı halletmişiniz acaba rica etsem nasıl yapıldığını anlatabilirmisiniz. 3.parti bileşen bulmustum bi kaç tane ama tam olarak çalıştıramadım ..

[ikutluay]

Merhaba Arkadaşlar sorucam soruyu nasıl soracağım konusunda sıkıntılıyım özel kompenantlar ve delphi ofline ile bir program yaptım bittiği ama sıkıntılar var programın amacı modem hariç farklı bir cihazdan caller id almak ve ses kaydetme

Kod: Tümünü seç

k bir edit var arama yapınca edit içinde her tuşa bastığında bir karakter ekliyor ben bunun 7.karaktere geldiğini nasıl anlarım birde cep çevirdiğini yani sıfıra basarsa 11.karakter gidecek ysni şehir dışı veya cep gibi ,sıfıra basmadan numara çevirirse şehir içi 7 karakter gidecek sonra listwiev yada başka biryere kaydedicem.[/quote]

editin onchange olayında conarinin yazdiği gibi length kontrolü yaparsan ve if te olumlu sonuç alırsan istediğin diğer komutları çalıştırırsın. 

yine aynı editin keypress eventinde length 1 ise ve içerik 0 ise şehir dışı yada cep girilmiştir. 

kodu ezberden yazıyorum delphi yok. hatalı ise sen kontrol edeceksin artık


[code]
if length(editx.text)= 7 then zzzzzzzzzzzzzzzz // bu onchange
if length(editx.text)=1 and (editx.text)='0' // buda keypress

[trpasport]

beni anlamışsın ama ben seni anlayamadım birşeyler yapmaya çalıştım olmadı beceremedim ama pest etmiş değilim kendim yapmaya çalışıcam ama sizdende gelirse daha hızlı bir öğrenme safası olacak dediğin gibi il karakter 0 olursa gettexlen=10 falan olucak eğer 0 değilde başka birşey olursa gettexlen=7 olacak ama ilk karakteri esas alıcak ortalarda 0 basma olasılığıda yüksek.

[Query]

Merhaba

editin keypress olayına

Kod: Tümünü seç

if length(edit1.text) = 1 and (edit1.text) = '0' 
   then gettexlen := 10 else gettexlen := 7; 

yapman yeterli

7. karektere geldiğini ise editin onchange olayına

Kod: Tümünü seç

if length(edit1.text) = 7 
   then "buraya 7 ise yapılacalar" else "buraya 7. değilse yapılacalar"

Daha nasıl anlatılır bilmiyorum. Aslında @ikutluay arkadaşımda iyi anlatmış ama

Kolay gelsin

[trpasport]

Arkadaşlar emeği geçen herkese teşekkür ederim özellikle ikutluay ve query arkadaşlarıma bazen insanın kafası duruyor mantık diye birşey kalmııyor algılamakta zorluk çekiyor öyle bir zamana denk geldim.

[Query]

Olur öyle arada hepimizin başına geliyor

[ikutluay]

bitince kodu paylaşırsın seninde ortama katkın olur.

[trpasport]

procedure TForm2.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if edit3.Text[1]=inttostr(0) then
edit3.MaxLength:=11 else edit3.MaxLength:=7;

end;

procedure TForm2.Edit3Change(Sender: TObject);
begin
if(Edit3.Text[1]=IntToStr(0)) and (Length(Edit3.Text)=11) then begin
ShowMessage('11');end;
if not (Edit3.Text[1]=IntToStr(0)) and (Length(Edit3.Text)=7) then begin
ShowMessage('7');end;
şöyle birşey yaptım şuan süper çalışıyor..ama eksiklerim va rgaliba daha test lazım hep.

[ikutluay]

kod derken caller id projesini kastetmiştim.

[trpasport]

kesinlikle koyacağım ben sorduğum soruya yanıt olarak bunu verdim onu ayrı bir topick halinde açıcam ve vericem sanada özel olarak mesaj atıcam ve query kardeşime ama sıkıntılarım var halen çıkamadığım yerler var.forumda rayıp bulamazsam sorucam mege ve musti abilere yanlışımız olmasın diye sormuyorum gerçekten yaptıkları ofline süper her derdime çare sayılır nerdeyse online aramaya gerek bile kalmıyor.başka bir kod bankasına ihtiyacım kalmadı denebilir.

[trpasport]

procedure TForm2.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if edit3.Text[1]=inttostr(0) then
edit3.MaxLength:=11 else edit3.MaxLength:=7;

end;

procedure TForm2.Edit3Change(Sender: TObject);
begin
if(Edit3.Text[1]=IntToStr(0)) and (Length(Edit3.Text)=11) then begin
aranan:=DateTimeToStr(now);
Edit4.Text:='ARANAN';
end;
if not (Edit3.Text[1]=IntToStr(0)) and (Length(Edit3.Text)=7) then begin
aranan:=DateTimeToStr(now);
Edit4.Text:='ARANAN';
end;
end;


kodlarım bu şekil butonda clear diyorum olmuyor butoneda edit3.clear diyorum yok.silinmedi

[Query]

Kod: Tümünü seç

edit3.text := ''

yaparsan içeriği temizlenir.