밑에 코딩을 보면 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
밑에 코딩을 보면 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): In...
펩시블루
•
2003.10.03 01:30
copy(edit5.text,1,1) 이 부분이 char 타입이 아니어서 에러가 나는것 같습니다.
var
string...
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