в общем решение найдено...
проблемы с сообщениями об ошибках - смена кодировки таблицы на UTF-8 (в самый последний момент вспомнил... млин...)
тестовый, но работоспособный вариант
вот код:
Код:
Var
Arr: Array of variant;
i: integer;
begin
i := 0;
DataModuleUnit.ADOQuery1.SQL.Text:='select www from qqq';
DataModuleUnit.ADOQuery1.Open;
SetLength(Arr,DataModuleUnit.ADOQuery1.RecordCount);
DataModuleUnit.ADOQuery1.First;
while not DataModuleUnit.ADOQuery1.eof do
begin
Arr[i] := DataModuleUnit.ADOQuery1.FieldValues['www'];
memo3.lines.add(DataModuleUnit.ADOquery1.fieldbyname('www').asstring);
DataModuleUnit.ADOQuery1.next;
Inc(i);
end;
end;
остается только написать разбор элементов массива на символы...