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

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

ماذا تعني هذه

getmsg(msg,was1,was2:integer)integer;
begin
getmsg:=msg+was1 shl 8+was2 shl 16;
end;
بعبارة أخرى :
الدالة السابقة تكتب هكذا :
PHP كود :
function Getmsg2(msg,was1,was2:integer):integer;
begin
Result
:=msg+(was1 * $100)+(was2 * $10000);
end;