各位前輩： 因我想Delphi6開發的程序轉成Delphi5環境下運行，不知道什麼辦法最好解決這個難題？謝謝！ ====================== ^_^ 相信自己，你是最棒的！ jacky ======================

------
jacky

如果沒有不相容的元件, 剩下的主要關鍵在 .DFM檔 Delphi6之後DFM檔是以Unicode方式儲存, Delphi5則否(繁體的是Big5) 簡單的可以在Delphi6中將dfm--View as Text, 再copy下來, paste至notepad中,存檔(注意選擇使用之code--Big5或??) 當然理想的方法是寫一個小程式, 讀取dfm 轉成text, 轉成所要之code再存檔

試試這個,沒在簡體中試過

function OpenDfmAsText(dfmname:string):TStringList;
var fstream:TFileStream;
    txtStream:TMemoryStream;
    stype:TStreamOriginalFormat;
    pfmt:TParser;
    s:string;
    ws:WideString;
    p0,p1,p2:integer;
    function findstr(begpos:integer; substr,sstr:string):Integer;
    var ss:String;
    begin
      ss:=copy(sstr,begpos,length(sstr)-begpos 1);
      Result:=pos(substr,ss) begpos-1;
    end;
begin
  result:=TStringList.Create;
  try
    fstream:=TFileStream.create(dfmname,fmOpenRead);
    txtstream:=TMemoryStream.create;
    fStream.Position:=0;
    stype:=TestStreamFormat(fStream);
    if stype=sofText then
      ObjectResourceToText(fStream,txtStream,stype)
    else
      ObjectResourceToText(fStream,txtStream);
    txtstream.Position:=0;
    try
      Result.LoadFromStream(txtStream);
      txtstream.Position:=0;
      pfmt:=TParser.create(txtStream);
      p0:=1;
      with pfmt do
      while NextToken <> toEof do begin
        if TOken=toWString then begin
          ws:=TokenWideString;
          s:=TokenString;
          p1:=findstr(p0,s,Result.text);
          p2:=p1 length(s);
          Result.text:=copy(Result.text,1,p1-1) #39 ws #39 copy(Result.text,p2,length(Result.text)-p2 1);
          p0:=p1 length(ws);  // next finding position
        end;
      end;
    finally
      txtStream.Free;
      fstream.Free;
    end;
  except
    Result.free;
    Result:=nil;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
var l:TStringlist;
begin
  l:=OpenDfmAsText('unit1.dfm');  //給任何dfm檔, 轉完後應該是AnsiString
  l.SaveToFile('xx.txt');//重save
  l.free;
end;

如果測試OK, savetofile可以直接Replace原檔, 別忘了先Backup, 否則壞了別怪我