#1 MicroTip#2:将中或英字符串转换为 Delphi 的 Dfm 格式
// MicroTip#2:将中或英字符串转换为 Delphi 的 Dfm 格式
// Test in Delphi6's Dfm
// Wrtten by SkyJacker 2007.03.05
// QQ Discuss Group: 130970

// 将中或英字符串转换为 Delphi 的 Dfm 格式
// Ex: 'CnPack Delphi '#20195#30721#24341#25806' V1.0' . Maybe you can reverse it!
function StrToDfmFmt(const AStr: string): string;
const
QM = '''';
var
W: WideString;
I: Integer;
bEn: Boolean;
Len: Integer;
begin
bEn := False;
W := AStr;
Len := L ..

#1 >>Next Page

Forum:技术板块灌水区 ...
Thread:MicroTip#2:将中或英 ...
Next Thread:读余秋雨历史散文“流 ...

Home
Login

Powered by Discuz!