Delphi2009正式发布 Delphi2009正式发布,开始接受预订。http://hi.baidu.com/frogappear/blog/item/4a5fefcc1fabfd1601e9289f.html 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 期待ing,不过偶得电脑配置太低了,可能无法体验 据说Delphi2009要装.net framework 想用D2009?就这么简单当然你得找Pre那个版本的SLIP来安装正式版,然后@#$%^&一下,哈哈0040E899 . /0F84 C6020000 je 0040EB65必须JMP而0040EBB1 . /75 1F jnz short 0040EBD2不跳,即可 呵呵,Delphi2009的泛型类和匿名函数测试? type TProc = reference to function(const x): string; TMyClass<T> = class private FValue: T; public procedure Show(Proc: TProc); property Value: T read FValue write FValue; end;{ TMyClass<T> }procedure TMyClass<T>.Show(Proc: TProc);begin ShowMessage(Proc(FValue));end;procedure TForm1.Button1Click(Sender: TObject);var IntObj: TMyClass<Integer>; floatObj: TMyClass<Single>;begin IntObj := TMyClass<Integer>.Create; IntObj.Value := 100; IntObj.Show(function(const x): string begin Result := IntToStr(Integer(x)); end); IntObj.Free; floatObj := TMyClass<Single>.Create; floatObj.Value := 12.340; floatObj.Show(function(const x): string begin Result := floatToStr(Single(x)); end); floatObj.Free;end; 谁有ImageEN的事例?给小弟个看看学学 Delphi 2004-09专家榜 哪里有关于鞋厂生产管理的源码下载 我的程序要拷到别人的机器上用,需要什么哪些文件 dxdbgrid 导出到 EXCLE 字数限制 请教:如何取得局域网里其他机器网卡的MAC地址? 怎样清除图象 如何打开我的CHM文件? delphi 中关于动态数组指针的问题 win 2k中D盘找不到了,C的空间会加大,什么原因? 转D2009时遇到的一个字符问题 千呼万唤高手来,一个URLDOWNLOADTOFILE的问题!急!
就这么简单
当然你得找Pre那个版本的SLIP来安装正式版,然后@#$%^&一下,哈哈0040E899 . /0F84 C6020000 je 0040EB65
必须JMP
而
0040EBB1 . /75 1F jnz short 0040EBD2
不跳,即可
TProc = reference to function(const x): string; TMyClass<T> = class
private
FValue: T;
public
procedure Show(Proc: TProc);
property Value: T read FValue write FValue;
end;{ TMyClass<T> }procedure TMyClass<T>.Show(Proc: TProc);
begin
ShowMessage(Proc(FValue));
end;procedure TForm1.Button1Click(Sender: TObject);
var
IntObj: TMyClass<Integer>;
floatObj: TMyClass<Single>;
begin
IntObj := TMyClass<Integer>.Create;
IntObj.Value := 100;
IntObj.Show(function(const x): string
begin
Result := IntToStr(Integer(x));
end);
IntObj.Free; floatObj := TMyClass<Single>.Create;
floatObj.Value := 12.340;
floatObj.Show(function(const x): string
begin
Result := floatToStr(Single(x));
end);
floatObj.Free;
end;