中国自造航母:有Edit1和richedit1,在richedit代码:我想让下同上字,否就就红,可打后回车错字才变红

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 04:02:05
procedure TForm1.RichEdit1Change(Sender: TObject);
var
i : word; s : String; p : word; begin
s := richedit1.Lines.Strings[0]; i := 0; p := richedit1.CaretPos.X; while (i <= length(s)) and (length(s) <> 0) do begin
richedit1.SelStart := i-1; if ord(s[i]) > 127 then begin
richedit1.SelLength := 2; i := i + 1; end else richedit1.SelLength := 1; if i > length(edit1.Text) then richedit1.SelAttributes.Color := clred else if edit1.Text[i] <> s[i] then richedit1.SelAttributes.Color := clred
else richedit1.SelAttributes.Color := clblack; i := i + 1; end;
if p > length(s) then richedit1.SelStart := length(s) else //否则
richedit1.SelStart := p; end;
就是在richedit1中输入汉字要和edit中的汉字一样,如果不一样,字就变红,可,我打了字,要回车错字才变红

aasdd