Edite ve Memoya Tek Basamaklı Sayı Girmemek

[kaan_karabey]

Arkadaşlar Edite ve memo ya tek basamaklı sayı girdiğimde başına sıfır koyması için ne yapmalıyım yardımlarınızı bekliyorum...

[Senat0r]

Tarzanca bir cevap olacak ama ilk aklıma gelen fikir bu oldu

Kod: Tümünü seç

if Length(edit1.Text) = 1 then
begin
  memo1.Lines.Add('0'+edit1.Text);
end  else begin
  memo1.Lines.Add(edit1.Text);
end;

[kaan_karabey]

Tarzanca bir cevap olacak ama ilk aklıma gelen fikir bu oldu

Kod: Tümünü seç

if Length(edit1.Text) = 1 then
begin
  memo1.Lines.Add('0'+edit1.Text);
end  else begin
  memo1.Lines.Add(edit1.Text);
end;

Yanlış anlatmışım galiba ikisi için ayrı ayrı olacaktı birlikte değil

[greenegitim]

girilen değeri bir değişkene at kontrol etir 10 dan küçükmü diye 10 dan küçük ise '0'+degiskenin şeklinde eklet

[Senat0r]

İkisi birlikte olacak derken anlamsim verdigim ornekte girilen sayi 1 ise 01 girilen sayi 15 ise 15 yazar siz ne yapmaya calisiyodunuz ?

[xxxjedixxx]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
  if Length(Memo1.Lines[i]) = 1 then
    Memo1.Lines[i] := '0' + Memo1.Lines[i];
end;