Показать сообщение отдельно
  #21  
Старый 18.05.2009, 01:23
_Hattab_ _Hattab_ вне форума
Прохожий
 
Регистрация: 17.05.2009
Сообщения: 17
Репутация: 10
По умолчанию

в общем решение найдено...
проблемы с сообщениями об ошибках - смена кодировки таблицы на 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;

остается только написать разбор элементов массива на символы...
Ответить с цитированием