• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

Delphi7升级到Delphi2010总结

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

1 字符串

>>string =unicodeString 字母的处理要定义AnsiString了

>>PChar =PWidechar

>>str='普通汉字' str[1]='普'，而不是str[1]+str[2]了

>>4字节的一个汉字，length=2，双字节的一个汉字，length=1

>>string 和 shorstring 不能直接赋值了。需要类型转换。

2 CharInSet

key in [ ] 要求替换为 CharInSet

3 canvas.StretchRect

canvas.StretchRect 多次画图，不能覆盖前一次画的图象，而是叠加在前一个图象上面。

临时处理：copyRect复制一个背景色过去，然后再画图

4 type record

可以使用property 可能D7也有。

5 webbrowser内容填充。使用流不好使了。汉字都变乱码了。用这个。

uses MSHTML,ActiveX,OleCtrls, SHDocVw;

procedure SetHtml2009(const WebBrowser: TWebBrowser; const Html: string);
var
htmDoc:IHTMLDocument2;
v:oleVariant;
begin
if not Assigned(WebBrowser.Document) then Exit;

try
htmDoc:=WebBrowser.Document as IHtmlDocument2;
v := VarArrayCreate([0,0], varVariant);
v[0]:=Html;
htmDoc.Write(PSafeArray(TVarData(v).VArray));
htmDoc.Close;
except
end;
end;

formCreate时，初始化webbrowser。若webbrowser是动态创建，创建之后初始化。代码如下：

var
v:oleVariant;
begin
//WebBrowser1:=TWebBrowser.Create(self.FOwnerForm);
//WebBrowser1.SetBounds(0,0,300,100);
//WebBrowser1.ParentWindow:=self.FOwnerForm.Handle;
v:='about:blank'; //初始化 WebBrowser1
WebBrowser1.Navigate2(v);
end;

在initialization和finalization部分处理OLE初始化

initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;

在用到webbrowser的地方，定义好需要显示的HTML字符串后，就可以调用函数setHtml2009显示。如

procedure TForm1.Button1Click(Sender:TObject);
var
str:string;
begin
str:='<html><head>dd</head><body>here is</body></html>';
SetHtml2009(WebBrowser1,str);
end;

6 ord 和 chr -------- 机内码和unicode-16的转化

ord('字') 得到的unicode-16的值， chr(56932)能直接得到一个汉字了。

2009下，机内码和unicode-16的转化，可以不使用widechartoString 等函数了。

//其中FC1 FC2 是机内码高字节和低字节，Funi 是unicode-16编码
//根据机内码计算unicode编码，
procedure SetUnicode;
var
xx:AnsiString;
xx2:string;
begin
xx:=AnsiChar(chr(FC1))+AnsiChar(chr(FC2)); //强制转换
xx2:=string(xx); //强制转换
self.Funi:=ord(xx2[1]);
end;


//根据unicode编码计算机内码， 其中procedure THanCode.SetFc12;
var
xx:AnsiString;
xx2:string;
begin
xx2:=chr(Funi); //2009 chr直接得到汉字 unicodestring
xx:=AnsiString(xx2); //强制转换
FC1:=ord(xx[1]); //按照单字节计算。
FC2:=ord(xx[2]);
end;

Key in ['a'..'z','B','C']
这类代码最好替换成CharInSet(Key,['a'..'z','B','C']) 不然会当作AnsiChar处理。

WideString
代码中的所有WideString都考虑替换成String，现在 WideString只是为了与COM兼容而存在，且没有引用计数，性能低下

 

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
labview调用matlabscript的神坑！Error1050occurredatLabVIEW发布时间：2022-07-18
下一篇：
中英文词频统计（MATLAB）发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap