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

نسخة كاملة : اضف معلومة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمة الله

تمرين اضف معلومة هو عبارة عن فكرة وضع معلومة جديدة او قديمة غير متداولة بكثرة... و على القراء ان يستعملوا فقط عقولهم للتمييز، بمعنى انه لا يتم تجربة الأوامر او البحث عن معناها في محركات البحث على النت... فقط قراءة الأوامر و محاولة تحليلها ثم الاجابة...

المثال:
PHP كود :
function FirstTry(): string;
begin
  Result 
:= IntToStr(StrToInt('0x' + ('00000002')) + $8);
end;

function 
SecondTry(): string;
begin
  Result 
:= IntToStr(StrToInt('$' + ('00000002')) + $8);
end;

function 
ThirdTry(): string;
begin
  Result 
:= IntToStr(StrToInt('hex' + ('00000002')) + $8);
end;

function 
FourthTry(): string;
begin
  Result 
:= IntToStr(StrToInt('%h' + ('00000002')) + $8);
end; 

اين الأمر الصحيحة ؟

بالتوفيق ان شاء الله
لم افهم السؤال
لكن SecondTry تبدو صحيحة
نعم اخي virtual اظنك فهمت السؤال جيدا، لانك قمت باختيار حالة و هذا هو المطلوب، بمعنى اننا نختار اجابة او اكثر من غير مساعـدة في تجربة الأوامر او البحث عنها في النت...

ننتظر مشاركات اخرى ان شاء الله ثم نقوم بالتعقيب على الاجابات...
السلام عليكم و رحمة الله

الأجوبة الصحيحة:
1- FirstTry
2- SecondTry

الرمز القديم الجديد هو : 0x
و هو مستعمل ايضا في لغات برمجة اخرى...
-------------
سؤال جديد:
ما الفرق بين : Cardinal و ULONG ؟
اظن لديهم نفس الحجم (32 بت) لكن يخنلفان في المجال الدي ياخده كل نوع
ULONG = Unsigned LONG (ياخد فقط القيم الموجبة)
Cardinal (ياخد القيم السالبة و الموجبة)
بار الله فيك على المشاركة

الحل مقتبس من وحدة windows.pas

كود :
type { [COLOR=Red]Translated from WINDEF.H[/COLOR] } ......... ......... ......... ......... ......... ......... UCHAR = Byte; {$EXTERNALSYM UCHAR} PUCHAR = ^Byte; {$EXTERNALSYM PUCHAR} SHORT = Smallint; {$EXTERNALSYM SHORT} UINT = LongWord; {$EXTERNALSYM UINT} PUINT = ^UINT; {$EXTERNALSYM PUINT} [COLOR=Red]ULONG = Cardinal;[/COLOR] {$EXTERNALSYM ULONG} PULONG = ^ULONG; {$EXTERNALSYM PULONG} PLongint = System.PLongint; {$EXTERNALSYM PLongint} PInteger = System.PInteger; {$EXTERNALSYM PInteger} ......... ......... ......... ......... ......... .........


----
هل هاذين الأمرين يعملان؟
كود :
CopyFileW('\\?\c:\folder\test.txt', 'c:\test.txt', FALSE); CopyFileW('c:\folder\test.txt', 'c:\test.txt', FALSE);
السلام عليكم و رحمة الله
طبعا كلاهما يعملان...

----
هل هذا الكود يعمل ايضا ؟
كود :
CopyFileW('c:[COLOR=Red]\\[/COLOR]folder[COLOR=Red]\\[/COLOR]test.txt', 'c:[COLOR=Red]\\[/COLOR]test.txt', FALSE);
اكتشف الخلل في هذا السطر:
PHP كود :
type
  KachClass 
= class class procedure Message(var Self) assembler; end; 
هل هذه الدالة صحيحة ؟
PHP كود :
function GetFile():file;
var 
m:File;
begin
AssignFile
(m, 'file.ext');
Result := m;
end;