Edit otomatik tamamlama

[ahmetb]

Merhaba;


Yaklaşık 10 tedit kullanıyorum edit içine tarih girince otomatik olarak (.) eklenmesini istiyorum.
İşlemi function kullanarak çözmek istiyorum, Fakat (.) hep en sonda kalıyor Örnek: 02 yazdığımda noktayı koyuyor fakat edite tekrar sayı girdiğimde nokta yine sonda kalıyor. bu durumu nasıl çözerim?

procedure TForm1.EditTarihChangeTracking(Sender: TObject);
begin
  if EditTarih.Text.Length > 0 then
    EditTarih.Text := TarihCreate(EditTarih.Text);
end;

function TForm1.TarihCreate(TarihString: String): String;
var
  Test: String;
begin
  Result := TarihString;
  I := Result.Length;
  begin
    if I = 2 then
    begin
      Test := Result;
      Result := '';
      Result := Test + ':';
    end;
  end;
end;

[narkotik]

(13-04-2019, Saat: 19:10)ahmetb Adlı Kullanıcıdan Alıntı: Merhaba;


Yaklaşık 10 tedit kullanıyorum edit içine tarih girince otomatik olarak (.) eklenmesini istiyorum.
İşlemi function kullanarak çözmek istiyorum, Fakat (.) hep en sonda kalıyor Örnek: 02 yazdığımda noktayı koyuyor fakat edite tekrar sayı girdiğimde nokta yine sonda kalıyor. bu durumu nasıl çözerim?

procedure TForm1.EditTarihChangeTracking(Sender: TObject);
begin
  if EditTarih.Text.Length > 0 then
    EditTarih.Text := TarihCreate(EditTarih.Text);
end;

function TForm1.TarihCreate(TarihString: String): String;
var
  Test: String;
begin
  Result := TarihString;
  I := Result.Length;
  begin
    if I = 2 then
    begin
      Test := Result;
      Result := '';
      Result := Test + ':';
    end;
  end;
end;

neden DateEdit kullanmıyorsunuz?

[ahmetb]

Görsellikten dolayı DateEdit tercih etmiyorum.

[mcuyan]

Buyrun size bir DateEdit..

procedure TForm1.Edit1Enter(Sender: TObject);
begin
 Edit1.Clear;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not(CharInSet(Key, ['0' .. '9', #8, #13])) then
 begin
   Key := #0;
   Beep;
 end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 Edit1.MaxLength:=10; //Bunu formdan yaparsanız daha mantıklı..
 if length(Edit1.text) = 2 then
 begin
   Edit1.text := Edit1.text + '.';
   Edit1.SelStart := 3;
   Edit1.SelLength := 0;
 end;
 if length(Edit1.text) = 5 then
 begin
   Edit1.text := Edit1.text + '.';
   Edit1.SelStart := 6;
   Edit1.SelLength := 0;
 end;
end;

[ahmetb]

(14-04-2019, Saat: 18:05)mcuyan Adlı Kullanıcıdan Alıntı: Buyrun size bir DateEdit..

procedure TForm1.Edit1Enter(Sender: TObject);
begin
 Edit1.Clear;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not(CharInSet(Key, ['0' .. '9', #8, #13])) then
 begin
   Key := #0;
   Beep;
 end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 Edit1.MaxLength:=10; //Bunu formdan yaparsanız daha mantıklı..
 if length(Edit1.text) = 2 then
 begin
   Edit1.text := Edit1.text + '.';
   Edit1.SelStart := 3;
   Edit1.SelLength := 0;
 end;
 if length(Edit1.text) = 5 then
 begin
   Edit1.text := Edit1.text + '.';
   Edit1.SelStart := 6;
   Edit1.SelLength := 0;
 end;
end;

Teşekkür ederim.

[Pimapen_Nuri]

(14-04-2019, Saat: 18:05)mcuyan Adlı Kullanıcıdan Alıntı: Buyrun size bir DateEdit..

procedure TForm1.Edit1Enter(Sender: TObject);
begin
 Edit1.Clear;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not(CharInSet(Key, ['0' .. '9', #8, #13])) then
 begin
   Key := #0;
   Beep;
 end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 Edit1.MaxLength:=10; //Bunu formdan yaparsanız daha mantıklı..
 if length(Edit1.text) = 2 then
 begin
   Edit1.text := Edit1.text + '.';
   Edit1.SelStart := 3;
   Edit1.SelLength := 0;
 end;
 if length(Edit1.text) = 5 then
 begin
   Edit1.text := Edit1.text + '.';
   Edit1.SelStart := 6;
   Edit1.SelLength := 0;
 end;
end;

Bu işlemi parasal alan için nasıl uyarlayabiliriz.

[sunbeki]

MaskEdit için tarih alanlarında aşağıdaki kodu kullanıyorum.

//Uses DateUtils

procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
 if ((Sender as TMaskEdit).Text= '  .  .    ') or
    ((Sender as TMaskEdit).Text='') then
    (Sender as TMaskEdit).EditMask := ''
 else
   (Sender as TMaskEdit).EditMask := '99.99.9999' ;
end;

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9', #8]) then
   Key := #0;
end;

procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
  if MaskEdit1.Text <> '' then
  begin
     if Not IsValidDate (StrToIntDef(Copy(MaskEdit1.Text,7,4) , 0),
                         StrToIntDef(Copy(MaskEdit1.Text,4,2) , 0),
                         StrToIntDef(Copy(MaskEdit1.Text,1,2) , 0)) then
     begin
       ShowMessage('Bir hata oluştu. Girilen tarih geçersiz.');
       MaskEdit1.SetFocus ;
     end ;
  end ;

end;

---

Ve yine MaskEdit için parasal alanlarda aşağıdaki kodu kullanıyorum.

procedure TForm1.MaskEdit2Exit(Sender: TObject);
begin
 try
   if TMaskEdit(sender).Text = '' then
     TMaskEdit(sender).Text := '0,00'
   else
     TMaskEdit(sender).Text := formatFloat('#0.00', strToFloatdef(TMaskEdit(sender).Text,0))  ;
 except
   ShowMessage('Alan için format uygun değil.');
   TMaskEdit(sender).SetFocus ;
 end;
end;

procedure TForm1.MaskEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',', #8]) then
    Key := #0;
  if (AnsiPos(',',TEdit(sender).Text) <> 0) and (key = ',') then
    key := #0;
end;