將 程式中的中文複製到 WordPad 後, 中文變亂碼 OS: xp home sp2 Delphi7 有人碰到與我相同的問題嗎? ****阿彌陀佛*****

是否因為沒法說明是繁體字? 用以下的procedure取代一般的copy即可. locale:LCID=$0404即是繁體big5    

procedure copytoclipboard(const s:string;locale:LCID=$0404);
var
  MemHandle: THandle;
  P: ^LCID;
begin
  with Clipboard do
  begin
    MemHandle:=GlobalAlloc(GMEM_MOVEABLE GMEM_DDESHARE, sizeof(LCID));
    if MemHandle <> 0 then
    begin
      p:=GlobalLock(MemHandle);
      p^:=locale;
      GlobalUnlock(MemHandle);
      Open;
      try
        AsText := s;
        SetAsHandle(CF_Locale, MemHandle);
      finally
        Close;
      end;
    end else astext:=s;
  end;
end;

對不起, 是我沒把狀況說明清楚 我是在 delphi 的程式編輯環境中, 當我改了某一段程式, 我想把修改後的一段程式複製到我的修改紀錄檔(txt), 紀錄我為何修改這一段的原因, 當我複製的這一段有中文字時, 修改紀錄檔(txt) 中文的部分就會變成亂碼 ? ****阿彌陀佛*****