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

[طيباوي ابو علي1]

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

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

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


ترقبوا المزيد ان شاء الله وشكرا

[حذيفة بن اليمان]

شكرا بارك الله فيك

[طيباوي ابو علي1]

بارك الله فيك