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

[bouazza8]

عندي Edit1 به ارقام مثل 7865445 فما هي طريقة معرفة عدد الارقام في المثال هو 7
فما هي طريقة ان يكون طول الارقام هو 10 لدي **** ان يصبح العدد هكدا 0007865445

فما هي طريقة تحويل الرقام من 4553,76 الى 455376 اي نزع الفاصلة و ترك ما بعدها

[أبو معاذ]

[INDENT]

عندي Edit1 به ارقام مثل 7865445 فما هي طريقة معرفة عدد الارقام في المثال هو 7
فما هي طريقة ان يكون طول الارقام هو 10 لدي **** ان يصبح العدد هكدا 0007865445

فما هي طريقة تحويل الرقام من 4553,76 الى 455376 اي نزع الفاصلة و ترك ما بعدها

لمعرفة عدد الأرقام استعمل الدالة Length

مثالها :

كود :

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

[/INDENT]

[bouazza8]

شكرا ممكن حل السؤال 2 و 3
خاصة 2

[yassine_hell]

كود :

var s : string; i : byte; begin S := Edit1.Text; for i := 1 to 10-length(s) do s:= '0'+s; edit1.Text := s;

[bouazza8]

1000 شكر
الله يبارك فيكم و يزيدكم من علمه