دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

2 مشترك

اذهب الى الأسفل

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

مُساهمة  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

https://delph.forumalgerie.net

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

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

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

بارك الله فيك

sdk11
مبرمج مجتهد

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

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

الرجوع الى أعلى الصفحة


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