pascalscript(带源码)
Innerfuse Pascal Script is a freeware script engine for Delphi,
CBuilder and Free Pascal. It allows you to use Pascal code inside
your program. http://wwww.carlo-kok.com
for j:=0 to KeyTable.Count-1 do begin
if UpperCase(KeyCode)=KeyTable.Strings[j] then begin
RichEdit1.SelStart:=Length(RichEdit1.Text)-Length(KeyCode);
RichEdit1.SelLength:=Length(KeyCode);
Richedit1.SelAttributes.Color:=clBlue;
Edit1.Text:=KeyCode;
RichEdit1.SelStart:=Length(RichEdit1.Text);
RichEdit1.SelLength:=0;
RichEdit1.SelAttributes.Color:=clBlack;
end
else
RichEdit1.SelAttributes.Color:=clBlack;
end;
end;