把Delphi6格式的dfm文件内容转换为Delphi5格式

uses
 Class, RTLConsts, TypInfo;
function ConvertForm(AFormString: string): string;
var
 lSrc, lDest: TStringStream;
 lBin: TMemoryStream;
begin
 lSrc := TStringStream.Create(AFormString);
 lDest := TStringStream.Create('');
 lBin := TMemoryStream.Create;
 try
   ObjectTextToBinary(lSrc, lBin);
   lBin.Seek(0, soFromBeginning);
   ObjectBinaryToTextEx(lBin, lDest);
   Result := lDest.DataString;
 finally
   lSrc.Free;
   lDest.Free;
   lBin.Free;
 end;
end;

case Reader.NextValue of
     vaWString, vaUTF8String:
       begin
         // 此处修改为:
         S := Reader.ReadWideString;
         ConvertString;
       end;
     vaString, vaLString:
       begin
         // 此处修改为:
         S := Reader.ReadString;
         ConvertString;
       end;
   end;