+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : اضف معلومة (/showthread.php?tid=3953)
اضف معلومة - STRELiTZIA - 03-03-2012
السلام عليكم و رحمة الله
تمرين اضف معلومة هو عبارة عن فكرة وضع معلومة جديدة او قديمة غير متداولة بكثرة... و على القراء ان يستعملوا فقط عقولهم للتمييز، بمعنى انه لا يتم تجربة الأوامر او البحث عن معناها في محركات البحث على النت... فقط قراءة الأوامر و محاولة تحليلها ثم الاجابة...
المثال:
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;
اين الأمر الصحيحة ؟
بالتوفيق ان شاء الله
اضف معلومة - virtual - 03-03-2012
لم افهم السؤال
لكن SecondTry تبدو صحيحة
اضف معلومة - STRELiTZIA - 04-03-2012
نعم اخي virtual اظنك فهمت السؤال جيدا، لانك قمت باختيار حالة و هذا هو المطلوب، بمعنى اننا نختار اجابة او اكثر من غير مساعـدة في تجربة الأوامر او البحث عنها في النت...
ننتظر مشاركات اخرى ان شاء الله ثم نقوم بالتعقيب على الاجابات...
اضف معلومة - STRELiTZIA - 05-03-2012
السلام عليكم و رحمة الله
الأجوبة الصحيحة:
1- FirstTry
2- SecondTry
الرمز القديم الجديد هو : 0x
و هو مستعمل ايضا في لغات برمجة اخرى...
-------------
سؤال جديد:
ما الفرق بين : Cardinal و ULONG ؟
اضف معلومة - Moha711 - 05-03-2012
اظن لديهم نفس الحجم (32 بت) لكن يخنلفان في المجال الدي ياخده كل نوع
ULONG = Unsigned LONG (ياخد فقط القيم الموجبة)
Cardinal (ياخد القيم السالبة و الموجبة)
اضف معلومة - STRELiTZIA - 05-03-2012
بار الله فيك على المشاركة
الحل مقتبس من وحدة 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);اضف معلومة - STRELiTZIA - 06-03-2012
السلام عليكم و رحمة الله
طبعا كلاهما يعملان...
----
هل هذا الكود يعمل ايضا ؟
كود :
CopyFileW('c:[COLOR=Red]\\[/COLOR]folder[COLOR=Red]\\[/COLOR]test.txt', 'c:[COLOR=Red]\\[/COLOR]test.txt', FALSE);اضف معلومة - kachwahed - 09-03-2012
اكتشف الخلل في هذا السطر:
PHP كود :
type
KachClass = class class procedure Message(var Self) assembler; end;
اضف معلومة - SMP3 - 31-03-2013
هل هذه الدالة صحيحة ؟
PHP كود :
function GetFile():file;
var m:File;
begin
AssignFile(m, 'file.ext');
Result := m;
end;