delphi中 碰到“害”就会出现乱码。

你的代码是存在这个问题，留下QQ，我帮你看看
问题是出在Copy函数上的
因为Copy函数不会自动判断是汉字，还是英文

最简单的解决办法是
你把s1,j,q,r这向个变量定义成widestring
var
s1,j,q,r:WideString;

我在DELPHI7下没有问题，你看我下面的测试过程：

Microsoft Windows XP [版本 5.1.2600]
(C) 版权所有 1985-2001 Microsoft Corp.

D:\temp\文件>notepad a.dpr

D:\temp\文件>dcc32 a.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
a.dpr(5)
6 lines, 0.64 seconds, 10440 bytes code, 1801 bytes data.

D:\temp\文件>a.exe
我害你

D:\temp\文件>type a.dpr
{$apptype console}
Program Exp;
Begin
Writeln('我害你');
End.
D:\temp\文件>

你的代码是存在这个问题，
问题是出在Copy函数上的
因为Copy函数不会自动判断是汉字，还是英文

最简单的解决办法是
你把s1,j,q,r这向个变量定义成widestring
var
s1,j,q,r:WideString;