Edit e Girilen Değer

[gunes20000]

İyi Günler

Edite değer girip başka bir alana geçtiğimde, edite girdiğim "1" rakamı "01" olacak. Bu sadece 1,2,3,4,5,6,7,8,9 rakamlarını girdiğimde geçerli olacak.
Yardımlarınız için şimdiden teşekkürler.

[bkantur]

dDeğerli hocalarımız daha iyisini verene kadar bu kod işini görebilir

Kod: Tümünü seç

procedure TForm1.Edit1Exit(Sender: TObject);
var
  uzn : integer ;
begin
  uzn:=length(edit1.Text ); //edite giren textin uzunluğu
  if uzn = 1 then //uzunluk 1 ise 0 ekle
    begin
      edit1.Text := '0' + Edit1.Text;
    end;
end;

[ertank]

Merhaba,

Birden fazla yöntem ile istenileni elte etmek mümkün. Bu yapılacak iş ile de direk ilgili tabi. Eğer girilen değerin bir tam sayı olduğunu kontrol etmek gerekli ise aşağıdaki yöntem de kullanılabilir.

Kod: Tümünü seç

procedure TForm1.Edit1Exit(Sender: TObject);
var
  TempInteger: Integer;
begin
  if TryStrToInt(TEdit(Sender).Text, TempInteger) then
  begin
    TEdit(Sender).Text := FormatFloat('00', TempInteger);
  end
  else
  begin
    TEdit(Sender).SetFocus();
    ShowMessage('Girilen değer bir tam sayı değil.');
    Exit();
  end;
end;

[gunes20000]

Verdiğiniz Kodlarla Sorunum çözüldü, Yardımlarınız için çok teşekkürler.