MaskEditte İp Göstermek[Çözüldü]

[Begin.End]

S.a arkadaşlar maskeditle ilgili bir sorum olacaktı.MaskEdite İp girişi yapıyorum ve bu bilgiyi ini dosyasında saklıyorum.Maskedite

Kod: Tümünü seç

___.___.___.___

şeklinde mask uyguladım. O İp ye IdHTTP ile bağlanmaya çalışıyorum.Sorunum girdiğim İp bazen

Kod: Tümünü seç

xxx.xx.x.xx 

bazen

Kod: Tümünü seç

xx.xx.xx.xxx

gibi ip ler oluyo ve arada boşluk olduğu için IdHTTP bağlanamıyo ve hata alıyorum.Maskedite İp girişi yaptıktan sonra oluşan boşlukları sildirip iniye öyle kaydetmem lazım.
Bu nasıl yapabilirim? Yardımlarınız için şimdiden teşekkürler

[Trial_Cooder]

"trim" komutunu kullan

[Begin.End]

Trim olmuyor cok denedim önce...zaten bildiğim kadarıyla trim basındaki ve sonundaki boşlukları alıyo ama maskeditte trim hiç bir iş yapmıyo

[ikutluay]

S.a arkadaşlar maskeditle ilgili bir sorum olacaktı.MaskEdite İp girişi yapıyorum ve bu bilgiyi ini dosyasında saklıyorum.Maskedite

Kod: Tümünü seç

___.___.___.___

şeklinde mask uyguladım. O İp ye IdHTTP ile bağlanmaya çalışıyorum.Sorunum girdiğim İp bazen

Kod: Tümünü seç

xxx.xx.x.xx 

bazen

Kod: Tümünü seç

xx.xx.xx.xxx

gibi ip ler oluyo ve arada boşluk olduğu için IdHTTP bağlanamıyo ve hata alıyorum.Maskedite İp girişi yaptıktan sonra oluşan boşlukları sildirip iniye öyle kaydetmem lazım.
Bu nasıl yapabilirim? Yardımlarınız için şimdiden teşekkürler

maskedit kullanmak yerine onchange eventinde tuş basmalarını kontrol edip halletmek daha mantıklı.

[Begin.End]

maskedit kullanmak yerine onchange eventinde tuş basmalarını kontrol edip halletmek daha mantıklı.

Üstad normal editin OnChange eventinde mi? Tuş basmalarını kontrol etmek pek anlayamadım biraz daha acıklama yaparsan sevinirim Teşekkürler

[Muhendiker]

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var a,i:integer;
begin

while pos(' ',MaskEdit1.Text)>0 do
 begin
  a:=pos(' ',MaskEdit1.Text);
  MaskEdit1.Text:=copy(MaskEdit1.Text,1,a-1)+copy(MaskEdit1.Text,a+1,length(MaskEdit1.Text)-(a-1));
 end;
 end;

Kolay gelsin

[ikutluay]

maskedit kullanmak yerine onchange eventinde tuş basmalarını kontrol edip halletmek daha mantıklı.

Üstad normal editin OnChange eventinde mi? Tuş basmalarını kontrol etmek pek anlayamadım biraz daha acıklama yaparsan sevinirim Teşekkürler

benim kastettiğim olay şu; maskeditte formatlama anında değil çıkışta olduğundan şahsi kanaatim bu componentin biraz eksik olduğu yönünde. eğer istersen torry.net te veya jvcl içinde zaten bu iş için componentler var ancak kendim yapacaım dersen;

editin onchange yada keydown eventinde nokta ve rakamlar dışında bir karakter girilmesine izin vermezsin olur biter.

link istersen

http://www.torry.net/vcl/edits/diffedit ... dredit.zip

bu ip girmeyi sağlayan bedava bir edit

[Begin.End]

Saolun Arkadaşlar hem kod hem de component cok işime yaradı teşekkür ederim..

[Battosai]

Bence maskedit yerine normal edit kullansan daha iyi olur böyle değişken değerler için bırakta kullanıcı fazladan bir nokta tuşuna bassın...ne olabilir kullanıcıya sadece rakam ve nokta girişine izin vererek yanlış girmesini önleyebilirsin...

[Trial_Cooder]

Kod: Tümünü seç

var
  i: Integer;
begin
  for i:=0 to Edit1.MaxLength do
  begin
  Edit1.SelStart := i;
  Edit1.SelLength := i + 1;
  if Edit1.SelText = ' ' then
  Edit1.SelText := '';
 end;

Edit1.MaxLength olmayabilir.