دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

دوال التحويل من الى

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

دوال التحويل من الى

مُساهمة  mah11 في 23/6/2013, 9:06 pm


بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين

دوال التحويل من الى

تحويل من عدد صحيح الى سلسلة حرفية
عدد صحيح الى سلسلة حرفية
IntToStr ==> Integer to String
مثال :
Edit1.Text := IntToStr(12);

-----------------------------------------------------------
عدد صحيح الى ستة عشر
IntToHex ==> Integer to hexadécimal : Renvoie la représentation en hexadécimal d'un entier.
مثال :

الكود:

var
  i: Integer;
begin
  Label1.Caption := '';
  for i := 1 to Length(Edit1.Text) do
  begin
  try
    Label1.Caption := Label1.Caption + IntToHex(ord(Edit1.Text[i]),2) + ' ';
  except
      Beep;
    end;
  end;
end;


أدخل 1 2 3 تحصل على 31 32 33
--------------------------------
سلسلة حرفية الى عملة أي عملة متداولة أو نقدية
StrToCurr ==> String To Currency
مثال :
var cr: currency;
begin
cr := StrToCurr('550.25');
---------------------------------------
سلسلة حرفية الى تاريخ
StrToDate ==> String To Date
مثال :
var dt: tdate;
begin
dt := StrToDate('20/06/2013');
-----------------------------
سلسلة حرفية الى وقت
StrToTime ==> String to Time
مثال :
var tm: TTime;
begin
tm := StrToTime('12:20:00');
------------------------------
سلسلة حرفية الى تاريخ ووقت
StrToDateTime ==> String To Date and Time
مثال :

------------------------------
سلسلة حرفية الى عدد حقيقي
StrToFloat ==> String To Real
مثال :
var rl: real;
begin
rl := StrToFloat('10.15');
---------------------------
سلسلة حرفية الى عدد صحيح
StrToInt ==> String to Integer
مثال :
var int: real;
begin
int := StrToInt('10');

---------------------------
تاريخ الى سلسلة حرفية
DateToStr ==> Date to string
مثال :
edit1.Text := DateToStr(date);

------------------------
وقت الى سلسلة حرفية
TimeToStr ==> Tame to string
مثال :
edit1.Text := TimeToStr(time);


------------------------------------
تاريخ ووقت الى سلسلة حرفية
DateTimeToStr ==>
Date and Time To String
مثال :
edit1.Text := DateTimeToStr(now);

-------------------------------------
عدد حقيقي الى سلسلة حرفية
FloatToStr ==> Float To String
مثال :
edit1.Text := FloatToStr(10.15);

--------------------------------
عملة الى سلسلة حرفية
CurrToStr ==> Currency to string
مثال :
edit1.Text := CurrToStr(10.15);

--------------------
ملاحظة
يستعمل في عملة نقدية متداولة
Currency



منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net

.



عدل سابقا من قبل mah11 في 24/5/2015, 3:22 pm عدل 2 مرات (السبب : تنسيق الموضوع)

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: دوال التحويل من الى

مُساهمة  sdk11 في 12/6/2015, 11:55 pm

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 109
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى