+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسار عن دالة getmsg (/showthread.php?tid=5370)
استفسار عن دالة getmsg - rabihpascal - 07-07-2013
السلام عليكم
ماذا تعني هذه
getmsg(msg,was1,was2:integer)integer;
begin
getmsg:=msg+was1 shl 8+was2 shl 16;
end;
استفسار عن دالة getmsg - SMP3 - 07-07-2013
بعبارة أخرى :
الدالة السابقة تكتب هكذا :
PHP كود :
function Getmsg2(msg,was1,was2:integer):integer;
begin
Result:=msg+(was1 * $100)+(was2 * $10000);
end;