我用
bb:= StringToWideChar(datapointer,aa,length(datapointer));
Memo1.Text := aa;
总是出错
bb:= StringToWideChar(datapointer,aa,length(datapointer));
Memo1.Text := aa;
总是出错
解决方案 »
- 小数点保留位数?
- 有没有现成免费的delphi输入文档编辑框?
- 为什么在delphi7的new items中的forms中没了quickreport labels这一项啊,对着6.0的书看,用的是7.0的delphi啊!
- 有关非典的名词
- 为何dbgrideh在使用时,常常会在行列之间出现不连贯线条,刷新无法去除,请有类似经历高手帮助解决该问题
- 征求delphi面试时的问题。
- 新手问题,ClientDataSet 多记录提交!?
- 怪问题,大虾们帮忙
- 请问怎样读入包含有中英文字符串的文本文件并放入widestring?
- delphi VS vb
- (散分啦)大侠们都烤过那些认证?或认为那些认证比较值得烤??(for Delphi programer))
- ADO的问题!在线等!急急急!!!!!!!!
var
s:string;
i:integer;
j,k:string[2];
a:array [1..1000] of char;
begin
s:='';
StringToWideChar(Ansi,@(a[1]),500);
i:=1;
while ((a[i]<>#0) or (a[i+1]<>#0)) do begin
j:=IntToHex(Integer(a[i]),2);
k:=IntToHex(Integer(a[i+1]),2);
s:=s+k+j;
i:=i+2;
end;
Result:=s;
end;