+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ريد معرفة عدد الارقام في Edit1.text (/showthread.php?tid=4161)
ريد معرفة عدد الارقام في Edit1.text - bouazza8 - 03-05-2012
عندي Edit1 به ارقام مثل 7865445 فما هي طريقة معرفة عدد الارقام في المثال هو 7
فما هي طريقة ان يكون طول الارقام هو 10 لدي **** ان يصبح العدد هكدا 0007865445
فما هي طريقة تحويل الرقام من 4553,76 الى 455376 اي نزع الفاصلة و ترك ما بعدها
ريد معرفة عدد الارقام في Edit1.text - أبو معاذ - 03-05-2012
[INDENT]
bouazza8 كتب :عندي Edit1 به ارقام مثل 7865445 فما هي طريقة معرفة عدد الارقام في المثال هو 7
فما هي طريقة ان يكون طول الارقام هو 10 لدي **** ان يصبح العدد هكدا 0007865445
فما هي طريقة تحويل الرقام من 4553,76 الى 455376 اي نزع الفاصلة و ترك ما بعدها
لمعرفة عدد الأرقام استعمل الدالة Length
مثالها :
كود :
var s : string;
i : integer;
s:='DELPHI';
i := Length(s);
//i=6;[/INDENT]
ريد معرفة عدد الارقام في Edit1.text - bouazza8 - 03-05-2012
شكرا ممكن حل السؤال 2 و 3
خاصة 2
ريد معرفة عدد الارقام في Edit1.text - yassine_hell - 03-05-2012
كود :
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 - bouazza8 - 03-05-2012
1000 شكر
الله يبارك فيكم و يزيدكم من علمه