各位大大： 我在版上找了許久，到現在還沒辦法解決我的問題， 所以po個文章問問大家， 我的程式： var Key1,Key2:integer; begin Key1:=ord(copy(PsW,9,1)) -40; Key2:=Ord(copy(PsW,10,1)) - 60; end; 發生的錯誤訊息： Incompatible types 幫幫我吧！

Hi afu222 你好:

var Key1,Key2:integer;
begin
Key1:=ord(PsW[9])) -40;
Key2:=Ord(PsW[10]) - 60;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

試試(加紅色的部份):

var 
  Key1, Key2: integer;
begin
  Key1 := Ord(Copy(PsW, 9, 1)[1]) - 40;
  Key2 := Ord(Copy(PsW, 10, 1)[1]) - 60;
end;