تعداد كاراكتر هاي يك اديت

با سلام و خسته نباشيد خدمت دوستان عزير
مي خواستم از اساتيد محترم بپرسم كه چگونه مي توان تعداد كاراكترهاي نوشته شده در يك اديت را بدست آورد

شما باید از تابع length استفاده کنید

ميشه بيشتر توضيح بدين
من مي خوام وقتي عددي كه در اديت باكسم نوشته مي شه اگه چهار رقمي بود كه هيچ ولي اگه كمتر از چهار رقم بود سمت چپ اعداد را به اندازه اعدادي كه نوشته نشده مثلا اگه 25 نوشتيم به جاي آن 0025 يا اگه 1 نوشتيم 0001 يا اگه 125 نوشتيم 0125 بنويسد متشكرم

برای مقادیر عددی نمی تونی قبل از عدد از صفر استفاده کنی

ولی اگر بخواهی می تونی از رشته استفاده کنی

چطوري آخه من از اين تابع هيچ نمي دونم امكان داره دستور آن را براي من بنويسيد
من يك جدول اس كيو ال دارم كه اعدادي در آن ذخيره شده است و اين اعداد حتما بايد 4 رقمي باشند و از يك شروع و تا 9999 مي توانند ادامه پيدا كنند مي خواهم هر وقت كه كاربر مي خواهد عددي را در اديت باكس وارد كند اگر اين عدد يا رشته ( چون فرقي نمي كند و من در جدولم به صورت رشته ذخيره مي كنم ) نوشته مي شود اگه يك رقمي بود مثلا 1 به 0001 و اگه دو رقمي بود 11 به 0011 و اگه سه رقمي بود 0111 تبديل شود
متشكرم

متوجه شدم به اين صورت آيا درسته ؟

کد:

---

var s : string; 
  i : integer;
s:='DELPHI';
i := Length(s);
//i=6;

---

و در كل دستوراتم را ايتگونه بنويسم

کد:

---

if dinsertkol.DataSource1.DataSet.Fields[2].Value=null then codekol:=strtoint(ebteda) else
codekol:=dinsertkol.DataSource1.DataSet.Fields[2].Value+1;
s:= inttostr(codekol);
editbox :=Length(s);
addkol.Label6.Caption:=inttostr(editbox);
if editbox=1 then addkol.Edit1.Text:= '000'+inttostr(codekol)else
if editbox=2 then addkol.Edit1.Text:= '00'+inttostr(codekol)else
if editbox=3 then addkol.Edit1.Text:= '0'+inttostr(codekol)else
if editbox=4 then addkol.Edit1.Text:= inttostr(codekol);

---

آره درسته

اگر با توابع بیشتر کار کنی به نکات جالبی می رسی

از راهنمايي و كمك شما بي نهايت نشكر و قدرداني مي كنم
:40::40::40::40::40::40::40::40::40::40::40::40::4 0:

اگر می خواهید مثالی رو برای شما بنویسم