M
mdc
Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现打字比较效果，上下部分都用richedit,上部读入文本文件内容，下部照打。
如果打错了，就用红色来显示上部对应位置的字符（汉字和标点符号等），打对了，
就用蓝色来显示。我这段代码在我的2000机子上通过了，有我要实现的效果，不知道
为什么，在98上和别的朋友的2000机器上都无法看到效果。
请大侠帮忙，帮我调一下。
代码：
s := trim(editor.Lines.Text);
s1 := form1.richedit1.lines.text;
i := length(s);
if s <> '' then
begin
for j := 0 to i - 1 do
if s1[j] = s[j] then
begin
form1.RichEdit1.SelStart := j - 1;
form1.RichEdit1.SelLength := 1;
form1.StatusBar1.Panels[1].Text := richedit1.SelText;
form1.RichEdit1.SelAttributes.Color := clblue;
end
else
begin
form1.RichEdit1.SelStart :=j-1;
form1.RichEdit1.SelLength := 1;
form1.RichEdit1.SelAttributes.Color := clred;
end;
end;
源代码：www.hrbco.com/ma/teach.rar
如果打错了，就用红色来显示上部对应位置的字符（汉字和标点符号等），打对了，
就用蓝色来显示。我这段代码在我的2000机子上通过了，有我要实现的效果，不知道
为什么，在98上和别的朋友的2000机器上都无法看到效果。
请大侠帮忙，帮我调一下。
代码：
s := trim(editor.Lines.Text);
s1 := form1.richedit1.lines.text;
i := length(s);
if s <> '' then
begin
for j := 0 to i - 1 do
if s1[j] = s[j] then
begin
form1.RichEdit1.SelStart := j - 1;
form1.RichEdit1.SelLength := 1;
form1.StatusBar1.Panels[1].Text := richedit1.SelText;
form1.RichEdit1.SelAttributes.Color := clblue;
end
else
begin
form1.RichEdit1.SelStart :=j-1;
form1.RichEdit1.SelLength := 1;
form1.RichEdit1.SelAttributes.Color := clred;
end;
end;
源代码：www.hrbco.com/ma/teach.rar
