1. Source상에서 String Grid를 DB에 저장 된 코드를 읽어오면서

동적으로 생성시켰습니다.



var

cur_grid : TStringGrid;

begin

cur_grid := TStringGrid.Create(Nil);

With cur_grid Do Begin

Parent := form1;

Name := 'stringgrid_' + query1.fieldbyname('code').AsString;

Visible := False;

End;



2. 1과 같이하여 여러개의 String Grid가 생성되었는데...

생성된 String Grid 여러개를 Loop를 돌면서 각각의 Grid마다 맨 마지막줄에

계를 산출하구 산출된 계들을 Loop를 다시 돌려 Master성 Grid(화면에 Design)에

에 값을 옮길려구 하는데여 답 좀 부탁드립니다.



가령 제 생각인데여 (.. 물론 안되더군여 ..)



var

current_grid : TStringGrid

i, j : Short;

begin

For i := 0 To 5 Do Begin

// 요기 아래줄 부분 ------

current_grid := 'stringgrid_' + formatfloat('00', strtofloat(inttostr(i)));

// 여기 있는 current_grid에 이미 생성된 string Grid를 연결하는 방법 좀

// -----------------------

With current_grid Do Begin

For j := 0 To RowCount - 1 do

Begin

cells[0, RowCount] := StrtoInt(cells[0, RowCount])

+ strtoint(cells[0, j]) +

End;

End;



고수님들의 조언 부탁드립니다...