這是哪種語言呢?

發文回覆瀏覽次數：1164

推到 Plurk!

推到 Facebook!

答題得分者是：GrandRURU

encoref70036
一般會員

發表：29
回覆：47
積分：15
註冊：2011-05-18

發送簡訊給我

#1 引用回覆回覆

發表時間：2011-05-24 20:57:16

IP:111.253.xxx.xxx 訂閱

1Click(Sender: TObject);
var
gif: TGifImage;
fs: TFileStream;
begin
gif := TGifImage.Create;
gif.Assign(Image1.Picture);
fs := TFileStream.Create('c:\aaa.gif',fmCreate OR fmOpenWrite);
gif.SaveToStream(fs);
fs.Free;
gif.Free;
end;

GrandRURU
站務副站長

發表：240
回覆：1680
積分：1874
註冊：2005-06-21

發送簡訊給我

#2 引用回覆回覆

發表時間：2011-05-24 22:59:02

IP:111.249.xxx.xxx 未訂閱

這個就是Delphi's Pascal語言
改法大致上是：
TGifImage * gif = new TGifImage;
gif->Assign(Image1->Picture);
TFileStream * fs = new TFileStream("c:\\aaa.gif", fmCreate|fmOpenWrite);
gif->SaveToStream(fs);
delete fs;
delete gif;

沒有實際編譯過，但應該是差不了多少

===================引用 encoref70036 文章===================
1Click(Sender: TObject);
var
gif: TGifImage;
fs: TFileStream;
begin
gif := TGifImage.Create;
gif.Assign(Image1.Picture);
fs := TFileStream.Create('c:\aaa.gif',fmCreate OR fmOpenWrite);
gif.SaveToStream(fs);
fs.Free;
gif.Free;
end;

編輯記錄

GrandRURU 重新編輯於 2011-05-24 09:00:02，註解無‧

系統時間：2025-02-02 18:53:41

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

本站聲明

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