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

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

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

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 10:17 am

بسم الله الرحمن الرحيم

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

تحويل من عدد صحيح الى سلسلة حرفية
عدد صحيح الى سلسلة حرفية
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

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

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

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


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