ريد معرفة عدد الارقام في Edit1.text

ادوات الموضوع

ريد معرفة عدد الارقام في Edit1.text

yassine_hell غير متصل

مبرمج هاوي

المشاركات : 114
المواضيع 35
:
: 0
الإنتساب : Jan 2011

03-05-2012, 06:41 PM

كود :
var s : string;
    i : byte;
begin
  S := Edit1.Text;

  for i := 1 to 10-length(s) do
    s:= '0'+s;

  edit1.Text := s;

« السابق | التالي »

الردود في هذا الموضوع

ريد معرفة عدد الارقام في Edit1.text - بواسطة yassine_hell - 03-05-2012, 06:41 PM

التنقل السريع :

يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة