2 replies to this topic

[Epik]

PLEASE HELP!
Error Line!

CODE

01: procedure TForm1.Button1Click(Sender: TObject);
02: var
03: i: Integer;
04: x: Integer;
05: begin
06: with Query do
07: begin
08: Close;
09: SQL.Clear;
10: SQL.Add('SELECT * FROM EMP');
11: Open;
12: end;
13: x := 0;
14: for i := 0 to NextDBGrid.Columns.Count -1 do
15: begin
16: // ShowMessage(NextDBGrid.Columns[i].Name);
17: if NextDBGrid.Columns[i].ClassType = TNxDBNumberColumn then
18: begin
19: inc(x);
20: TNxDBNumberColumn(FindComponent('NxDBNumberColumn' + IntToStr(x))).SpinButtons := False; // ERROR HERE!!! not good code!! why???
21: end;
22: end;
23: end;

Error line is 20;
why???

[Boki (Berg)]

Hello,

Maybe is better using next code:

CODE

if NextDBGrid.Columns[i].ClassType = TNxDBNumberColumn then
begin
  TNxDBNumberColumn(NextDBGrid.Columns[i]).SpinButtons := False;
end;

Best regards

[Epik]

Thanks, u'r code is compile good.