如何轉成Delphi用的語法??

發文回覆瀏覽次數：1089

推到 Plurk!

推到 Facebook!

答題得分者是：cmf

adonis
高階會員

發表：140
回覆：258
積分：159
註冊：2002-04-15

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-01-17 16:22:49

IP:163.15.xxx.xxx 未訂閱

請問這段Code要如何改成Pascal的語法?? TColor __fastcall TForm1::PutPixelGray(char Pixel) { return (Pixel&0x000000FF)|((Pixel<<8)&0x0000FF00)|((Pixel<<16)&0x00FF0000); }

------
我也在努力學習中，若有錯謬請見諒。

cmf
尊榮會員

發表：84
回覆：918
積分：1032
註冊：2002-06-26

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-01-17 16:40:43

IP:61.218.xxx.xxx 未訂閱

引言: 請問這段Code要如何改成Pascal的語法?? TColor __fastcall TForm1::PutPixelGray(char Pixel) { return (Pixel&0x000000FF)|((Pixel<<8)&0x0000FF00)|((Pixel<<16)&0x00FF0000); }

function TForm1.PutPixelGray(Pixel:BYTE):TColor; begin result:=(Pixel and $FF) or ( (Pixel shl 8) and $FF00) or ((Pixel shl 16) and $FF0000); end;

發表人 - cmf 於 2003/01/17 16:44:16

------
︿︿

系統時間：2024-04-27 5:58:02

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！