Выборка из файла .txt

[cw82]

Сделал вот так... Все работает, но очень медленно, информация отображается только через 60 сек, нужно хотябы 15-20 сек. Подскажите, что нужно сделать??? Может использовать др компоненты? Использую DBGidEh+ADOQuery+DATASource+ADOConn ection+Access.mdb

procedure TForm1.Button3Click(Sender: TObject);
   var
          s:string;
          F:TextFile;
    begin
       assignfile(f, 'c:\11.cr');
       reset(f);
       while not eof(f) do
      begin
    readln(f, s);
         begin
      ADOQuery1.Insert;
      ADOQuery1.Fields[1].AsString:=Copy(s,6,2);
      ADOQuery1.Fields[2].AsString:=Copy(s,24,15);
      ADOQuery1.Fields[3].AsString:=copy(s,39,1);
      ADOQuery1.Post;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

я на 99% уверен, что основная проблема задержек - это вставить в базу Access > 3000 записей...

Зачем Вам ACCESS?! Ваша же задача только ВИЗУАЛИЗИРОВАТЬ данные?!

[ReportCube]

В данном случае логичнее было бы изложить требования клиента и, возможно, будет оптимальное решение задачи. Возможно, что клиенту достаточно данных с одного текстового файла и тогда совершенно не требуется всё разносить по полям в таблицу Access - просто визуализировать уже имеющиеся данные как обычную таблицу. И совершенно другое дело, если требуется постоянно добавлять данные из очередного текстового файла в таблицу Access для какой-то специфической задачи анализа.

[cw82]

достаточно данных с одного текстового файла

Да, вы правы. Клиент будет выбирать нужный файл, и далее ему нужна удобная таблица, данные сохранять не требуется, просто просмотр и поиск.Я начинающий и знаю только как связать нужные компоненты с Access и отобразить данные, поэтому изначально пошел таким путем.

просто визуализировать уже имеющиеся данные как обычную таблицу

Был бы благодарен Вам, если подскажете как это сделать, какими компонентами....

[ReportCube]

//Строка соединения
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;Extended Properties = "Text;HDR=No";Mode = Write|Read|Share Deny None;Persist Security Info = True;'
//Текст запроса
ADOQuery1.SQL.Text := 'SELECT 
	Mid(a.[F1],5,2) AS F1,
	a.[F2] AS F2,
	a.[F3] AS F3,
	Mid(a.[F4],1,8) AS F4,
 	Mid(a.[F4],9,6) AS F5
FROM 
	[11#txt] a';
ADOQuery1.Open;

создаёте файл C:\schema.ini следующего содержания:

[11.txt]
ColNameHeader=False
Format=Delimited( )
MaxScanRows=25

Файл C:\schema.ini необходим для правильной интерпретации используемого разделителя значений (пробел).
Всё проверено на тех данных, которые Вы указали, запрос открывается и он виден. Если нужен пример работающего приложения для анализа аналогичных данных - пишите в личку, помогу.