ZeosLib: ständig Access-Viol. bei GetIntByName & Serial-Typ

[DeddyH]

Funktioniert es denn so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Query.Close;
  Query.SQL.Text := 'SELECT * ' +
                    'FROM test;';
  Query.Open;
  i := 0;
  SetLength(FTerminartIds,0);
  while not Query.EOF do
  begin
    inc(i);
    SetLength(FTerminartIds,i);
    FTerminartIds[High(FTerminartIds)] := Query.DbcResultSet.GetIntByName('test_id'); // Access Violation
    Query.Next;
  end;
end;

Ich weiß, dass das nicht performant ist, aber das kann man ja noch optimieren, wenn es funktionieren sollte.