Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.23;
Скачать: CL | DM;

Вниз

AdoDataSet   Найти похожие ветки 

 
std ©   (2006-04-10 16:02) [0]

Добрый день

if not FileExists(filename) then Exit;
TreeView1.Items.Clear;
ADODataSet1.LoadFromFile(filename);
SetLength(userarr,ADODataSet1.RecordCount+1);
n:=0;
while not ADODataSet1.Recordset.EOF do
 begin
 user.fname:=ADODataSet1.FieldValues["fname"];
 user.lname:=ADODataSet1.FieldValues["lname"];
 user.sname:=ADODataSet1.FieldValues["sname"];
 user.email:=ADODataSet1.FieldValues["email"];
 user.ip:=ADODataSet1.FieldValues["ip"];
 ADODataSet1.Next;
 userarr[n]:=user;
 inc(n);
 end;
for i:=0 to Length(userarr) do
 begin
   user:=userarr[i];
   TreeView1.Items.AddObject(nil,user.fname,p);
 end;

вот такой кусок кода, аньше все работало нормально а седня компилю и мне выдает ошибку
Небыл произведен вызов CoInitialize
ADODataSet1.LoadFromFile(filename);
подскажите в чем проблема


 
Desdechado ©   (2006-04-10 16:18) [1]

где-то с потоками начал играться?


 
std ©   (2006-04-10 16:31) [2]

ну собсно файл который filename я получаю по сети через tcpip потоково...


 
stone ©   (2006-04-10 17:01) [3]


> Небыл произведен вызов CoInitialize

Ну так произведи его

CoInitialize(nil)


 
std ©   (2006-04-10 17:28) [4]

написал, но ругается:
Undeclared identifier: "coinitialize"


 
stone ©   (2006-04-10 17:31) [5]

uses
 ActiveX;



Страницы: 1 вся ветка

Текущий архив: 2006.04.23;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.012 c
15-1143802154
Virtual FreeBSD 4.10
2006-03-31 14:49
2006.04.23
VMWare


15-1143693264
DelphiN!
2006-03-30 08:34
2006.04.23
Вывод чека на ККМ Меркурий-130Ф


1-1142435581
Sergg
2006-03-15 18:13
2006.04.23
Добавление новых членов класса в TTreeView


2-1144565125
Volkov
2006-04-09 10:45
2006.04.23
эмуляция нажатий клавиш


1-1142858068
nastya
2006-03-20 15:34
2006.04.23
объявить константы в TypeLibrary





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский