简单问题。。。。。。。。怎么会没有人答出来阿~~~~~~~~~~~ (100分)

  • 主题发起人 jerryjean
  • 开始时间
J

jerryjean

Unregistered / Unconfirmed
GUEST, unregistred user!
var
strTemp:wideString;
begin
strTemp:='Delphi的简单问题问题';
Clipboard.Clear;
Clipboard.SetTextBuf(PChar(strTemp));
end;
问题:
如果你打开一个记事本,然后在里面“粘贴”,则出现乱码。
这是怎么回事?

现在发现只要把记事本中的中文内容拷贝到delphi的工程的memo框中显示乱码,
我的系统是win2k profressional 英文版 + delphi6.0 英文版 + mutiple language packets
怎么样解决?分数可以多多,就是要能够解决问题。~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 
用 Cilpboard.astext:=strtemp;就可以了
 
不行仍然是乱码~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
把wideString改成String;
 
strTemp:wideString;
改为pchar类型就行了
 
不行仍然是乱码~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
下面的代码在我这里没问题
var
strTemp:pchar;
begin
strTemp:='Delphi的简单问题问题';
Clipboard.Clear;
Clipboard.SetTextBuf(strTemp);

end;
 
我试了不是乱码,
即使不改我这里也不是乱码的,只是不改只能复制字符'D',
改成STRING就正确了.
 
我按照Yhhe的方法试过了 可以啊。

而且把wideString换成String的话用SetTextBuf 和 AsText都可以成功。
 
检查一下看看是不是输入法的问题,也就是说,要么你在Delphi和记事本中都关闭输入法,要么你在Delphi和记事本中都打开输入法。
 
那怎么回事情啊,我这里的操作系统是win2k Procfessional 英文版 + mutiple language packet + delphi 阿
是不是和这个有关???
 
对我在delphi中用中文输入没有用,文字上不去。
 
在delphi中把字体改为宋体试试
 
都试过了,通过,系统问题,也许。[:D]
 
是不是只有中文部分才出现乱码啊?那应该是没有中文字体吧.
 
有个情况:如果你在你的放一个memo1,然后再memo1里面粘贴,我这里就不是乱码,但是要是在记事本中打开粘贴的话,那就出现乱码。
现在我在delphi中用中文输入没有用,文字不能写上去。
 
我的delphi中不能输入中文这是怎么回事情啊
 
应该是了吧
 
那怎么回事情啊,我这里的操作系统是win2k Procfessional 英文版 + mutiple language packet + delphi 阿
是不是和这个有关???

var
strTemp:String;
begin
strTemp:='Delphi的简单问题问题';
Clipboard.Clear;
Clipboard.SetTextBuf(PChar(strTemp));
end;
问题:
如果你打开一个记事本,然后在里面“粘贴”,则出现乱码。d
这是怎么回事?

有个情况:如果你在你的放一个memo1,然后再memo1里面粘贴,我这里就不是乱码,但是要是在记事本中打开粘贴的话,那就出现乱码。
现在我在delphi中用中文输入没有用,文字不能写上去。
 

//将widestring改为string即可

var
strTemp:String;
begin
strTemp:='Delphi的简单问题问题';
Clipboard.Clear;
Clipboard.SetTextBuf(PChar(strTemp));
end;
 
顶部