如题,widestring到string的转换
急。。
急。。
解决方案 »
- delphi7登陆界面问题
- Create方法都是有什么用?
- 怎样替换系统中超长的文本!
- 在stringgrid中,有没有单元格引发事件的?
- 如何把日期如2005-04-25格式成20050425
- 怎样令菜单像Delphi的菜单一样
- 怎么将程序自己添加到系统启动中,又怎么移出呢??
- 关于报表中分组显示的问题,帮忙提的有分(100分)
- 为什么在程序运行SQL中的存储过程,会出现未能找到存储过程...,可是我在SQL中有这个存储过程阿!
- 昨天我找到一个控件,可以做出Windows Xp样式的菜单,在www.borland.com里头(Delphi 6)
- QReport问题,在线等,未解决前长期有效
- 指纹开发
@param ws Unicode string.
@param codePage Code page to be used in conversion.
@returns Converted ansi string.
}function WideStringToString(const ws: WideString; codePage: Word): AnsiString;
var
l: integer;
begin
if ws = ' then
Result := '
else
begin
l := WideCharToMultiByte(codePage,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
@ws[1], - 1, nil, 0, nil, nil);
SetLength(Result, l - 1);
if l > 1 then
WideCharToMultiByte(codePage,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
@ws[1], - 1, @Result[1], l - 1, nil, nil);
end;
end; { WideStringToString }
{:Converts Ansi string to Unicode string using specified code page.
@param s Ansi string.
@param codePage Code page to be used in conversion.
@returns Converted wide string.
}
function StringToWideString(const s: AnsiString; codePage: Word): WideString;
var
l: integer;
begin
if s = ' then
Result := '
else
begin
l := MultiByteToWideChar(codePage, MB_PRECOMPOSED, PChar(@s[1]), - 1, nil, 0);
SetLength(Result, l - 1);
if l > 1 then
MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@s[1]),
- 1, PWideChar(@Result[1]), l - 1);
end;
end; { StringToWideString }
然后XML读出来的在TStringlist里搜 发现搜不到
输入的时候输入什么?