function TfOut.IsExist_InGrid(Sender: TObject; sgTab: TStringGrid;

IndexStr,FindStr: string): LongInt;

var I, J, nLast: LongInt;

PrimKey: string;

Index: Variant;

begin

Index := VarArrayCreate([1, 6], varVariant);

I := 1;

while IndexStr <> '' do begin

VarArrayReDim(Index, I);

Index[I] := StrToInt(Copy(IndexStr, 1, 6));

IndexStr := Copy(IndexStr, 2, Length(IndexStr));

Inc(I);

end;

nLast := sgTab.RowCount - 1;

for J := 0 to nLast - 1 do begin

PrimKey := '';

for I := 1 to VarArrayHighBound(Index, 1) do

PrimKey := PrimKey + Trim(sgTab.Cells[Index[I], J]);

if PrimKey = FindStr then begin

IsExist_InGrid := J;

Exit;

end;

end;

IsExist_InGrid := J;

end;



위에 사용된 함수는 스트링그리드에서 사용자가 선택한 줄을 찾는 프로그램인데요.

여기서 사용된 Variant변수와 VarArrayCreate, VarArrayReDim, VarArrayHighBound

함수에 대해서 자세히 알고 싶습니다. 급하게 필요하기때문에 아시는 분은 저에게

빠른 답변 부탁드립니다. 수고하세요.