delphi4arab منتديات دلفي للعرب

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

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

[INDENT]

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

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

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

مثالها :

كود :
var s : string;
    i : integer;

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

[/INDENT]

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

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

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

  edit1.Text := s;

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

bouazza8

أبو معاذ

bouazza8

yassine_hell

bouazza8