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 := Length(W);
  for I:=1 to Len do
  begin
    if Ord(W[i])>127 then // 如果为非普通 ascii，就认为是宽字符
    begin
      if bEn then
        Result := Result + QM;

      Result := Result + '#' + IntToStr(Ord(W[I]));
      bEn := false;
    end
    else
    begin
      if not bEn then
        Result := Result + QM + W[i]
      else
        Result := Result + W[i];

      if I = Len then
        Result := Result + QM;
      bEn := true;
    end;
  end;
end;

if Ord(W)>127

这个用法还真新鲜。

阿.
我的原文是:
if Ord(W[i])>127 then // 如果为非普通 ascii，就认为是宽字符

我是先放在 UE 中再Copy的.
难道弄丢了.

上面的Ord(W)就不改了,当作一个小后门吧。:lol:

:L  Discuz 过滤了.

阿.
我的原文是:
if Ord(W { i })>127 then // 如果为非普通 ascii，就认为是宽字符

W[I]

(W[I])

Ord(W[I])

Ord(W[I]) >

if Ord(W[i])>127

Ord(W[i])>127

(W[i])>127

总结：
Discuz! 5.0.0 会过滤类似于以下字符串：
(W{I})>127

"{}" 实际为 "[]"

Thx Passion!

让此帖作为我的灌水测试帖吧

小于
(W[I]) < 127

(W[I]) and (W[I]) > 127

((W[I]) and (W[I])) > 127

((W[I]) && (W[I])) > 127

W[ I ] > 127

(W[ I ])>127

明白了， 得禁用DISCUZ! 代码，否则那个方括号I就被当成斜体了。

怪不得看起来怪怪的。