谢谢了
解决方案 »
- C#翻译delphi问题,急..
- 非常难的一个问题!!郁闷中....
- D8编译出错
- 控件数组的问题
- 如何简化这个问题的代码?
- 如何将数据表中两个字段值相同的记录显示在dbgrid中?
- createoleobject的使用?
- 从扫描仪导入照片怎么导入
- 我用datetimepicker获得日期,保存到数据库SQL里,时间会自动变为1905年,我只要日期,不要时间,请高手帮忙
- 在SQL相对于top的是什么?也就是想查询出在数据库中位于后面的记录是如何做的?就象select * top 10 from用来查前十位记录一样?
- 如何在Delphi5.0中 调用Sybase存储过程 高手赐教!100分
- 请教一个关于数据库连接的问题
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;
var
Handle :THandle;
s :string;
s2:PWideChar;
iMemAlloc:Integer;
begin
s:=Edit1.text;
iMemAlloc:=Length(s)*SizeOf(WideChar);
s2:= AllocMem(iMemAlloc);
StringToWideChar(s,S2,iMemAlloc);
Handle := BeginUpdateResource('A.dll',false);
UpdateResource(Handle,RT_STRING,'1',LANG_NEUTRAL,s2,iMemAlloc);
EndUpdateResource(Handle, false);
end;