برمجة مولّد أرقام

[musvc]

[COLOR="Purple"]:laugh:
طبعا ً ليس من المرغوب ان تكرر شيئ في البرمجة اكثر من الازم

اليك الحل :

اضف مكونين من Edit
اضف زر

في حدث الزر :

كود :

var Add: Integer; I: Integer; begin Edit2.Clear; Add := 10 - Length(Edit1.Text); for I := 1 to Add do Edit2.Text := Edit2.Text + '0'; Edit2.Text := Edit2.Text + Edit1.Text;

طبعا ً يوجد الكثير من الطرق لفعل ذلك برمجيا ً
يمكنك صنع دالة من الكود :

كود :

function Num10(Number: Integer): String; var Add: Integer; I: Integer; begin Add := 10 - Length(IntToStr(Number)); for I := 1 to Add do Result := Result + '0'; Result := Result + IntToStr(Number); End;

كود الأستدعاء :

كود :

Edit2.Text := Num10(StrToInt(Edit1.Text));

و لا تنسى اضافة Try قبل استدعائه .

سلام[/COLOR]