KolVoEl содержит количество строк в таблице и совпадает с реальным количеством.
- Код: Выделить всё
SetLength(MassivUserSync, KolVoEl, 6);
for N := 0 to (KolVoEl - 1) do
begin
SQLQuerUserDB.Close;
SQLQuerUserDB.Active:=false;
SQLQuerUserDB.SQL.Clear;
SQLQuerUserDB.SQL.Add('SELECT * FROM UserProgram');
SQLQuerUserDB.Active:=true;
MassivUserSync[N][0]:= SQLQuerUserDB.FieldByName('name').AsString;
MassivUserSync[N][1]:= SQLQuerUserDB.FieldByName('type').AsString;
MassivUserSync[N][2]:= SQLQuerUserDB.FieldByName('license').AsString;
MassivUserSync[N][3]:= SQLQuerUserDB.FieldByName('cena').AsString;
MassivUserSync[N][4]:= SQLQuerUserDB.FieldByName('zamena').AsString;
MassivUserSync[N][5]:= SQLQuerUserDB.FieldByName('file').AsString;
end;
PS: Прошу прощения за глупые вопросы и ошибки, новичок.