델파이의 case 문에서는 string 타입을 사용할 수 없습니다.

if gridName = 'AGrid1' then

else
if gridName = 'AGrid2' then

이렇게 사용하세요

델파이초보 님이 쓰신 글 :
: 컴포넌트 네임으로 case문 사용하려고 하는데...
: ordinal type required
: 이런 에러가 나여,,, 함수를 컴포넌트 별로 만들어도 되지만.. 소스가 길어서 한 함수안에 다 넣고 싶었는데..
: 안되는 건가여?
:
: F_index('code', AGrid1');
:
: function Tfrm.F_index(colName: string; var gridName: TAdvColumnGrid): integer;
: begin
:  Result := -1;
:   case gridName of   //<-여기서 에러가 나여
:     AGrid1 : Result:= 1;
:     AGrid2 : Result:= 2;
:   end;
: end;
:
:
: 에러나는 부분을 gridName.name 으로도 고쳐보고.
: 'AGrid1' : Result:= 1;
: 'AGrid2' : Result:= 2;
: 이렇게 홑따옴표도 붙여보고,,
:
: 별거를  다해봐도 안되네여.. ㅠㅠ
:
: 함수를 그리드별로 만들어야 하는건가여?
: 함수를 주요부분만 간단히 적은거라... 더 길어여,,ㅋㅋ case문 내용이..
:
: 도와주세요ㅜㅜ