Q&A

  • 간단한코딩을 보고
밑에 코딩을 보면 ord 그 쪽에서 에러가 나는데 도통 모려겠습니다
조언부탁드립니다
if  (ord(copy(edit5.text,1,1)) >=65) and (ord(copy(edit5.text,1,1))<=90) then
  begin
  end      
else
  begin
  end;
[Error] frm_monosorbprint.pas(275): Incompatible types
1  COMMENTS
  • Profile
    펩시블루 2003.10.03 01:30
    copy(edit5.text,1,1) 이 부분이 char 타입이 아니어서 에러가 나는것 같습니다.
    var
      stringtemp : stirng;
    begin
      stringtemp := edit5.text;
      copy(edit5.text,1,1))
      
      if  (ord(stringtemp[0])) >=65) and (ord(stringtemp[0])) <=90) then
      begin
      end      
    else
      begin
      end;

    이렇게 하면 되지 않을까요? 아닌가? ㅡ.ㅡ a