Перенести данные из txt в DBGrid

[demiancz]

Здравствуйте. Есть текстовый файл. Необходимо данные из этого текстового файла перенести в DBGrid. Разделителем в текстовом файле выступает знак "|".
Пример:
Солнце|Трава
Зима|Лето
значит Солцце и Зима должны быть в первом столбце DBGrid, а Трава и Лето - во втором

[Sciv]

Судя по вопросу, Вы не совсем четко представляете себе, что такое ДБГрид?

А вообще код примерно такой:

var F: textfile;
     s: string;
begin
  AssignFile(F,'text.txt');
  Reset(F);
  While not Eof(F) do begin
    ReadLn(F,s);
    if pos('|',s)<>0 then begin    
      Table1.Insert;
      Table1.FieldByName('Имя первого поля').AsString:=copy(s,1,pos('|',s)-1);
      Table1.FieldByName('Имя второго поля').AsString:=copy(s,pos('|',s)+1,length(s)-pos('|',s)+1);
      Table1.Post;
    end
    else if s<>'' then begin
      Table1.Insert;
      Table1.FieldByName('Имя первого поля').AsString:='';
      Table1.Post;
    end;
  end;
  CloseFile(F);
end;

Примечание: круто будет, если попадется строка типа '|||||||||' )))

[Аватар]

Можно с использованием AdoQuery и провайдера Jet.OLEDB. По ссылке пример строки соединения http://support.microsoft.com/kb/326548/ru

[Serge_Bliznykov]

а точно в DBGrid ? DBGird - это же контрол для отображения данных из БД (см. первые буквы в имени компонента: DB = DataBase). Может быть, Вам нужен другой компонент (например, StringGrid) ?

оп-с... опоздал я со своим ответом...

[demiancz]

Дело в том что у меня есть текстовые файлы в которых по 15000-20000 строк, такого типа как я привел выше. Я эти файлы импортирую в базу Access, а потом подключаю эту базу через ADOConnection. НУ и дальше работаю с помощью SQL запросов.
Но после импорта в базу Access она весит около 40 МБ. Вот мне и надо что то альтернативное, что бы меньше весом было (в текстовом формате именно то что надо).
Мне надо что бы можно было потом сделать автопоиск хотябы.

[ReportCube]

Так Вас вроде бы уже разъяснили, нет? http://www.programmersforum.ru/showp...45&postcount=5

[Delphi_developer]

Вам я уже ответил вчера здесь http://www.cyberforum.ru/delphi-begi...ead689172.html. Если непонятно, то бросайте это дело!

[medved_program]

Сообщение от Sciv

Судя по вопросу, Вы не совсем четко представляете себе, что такое ДБГрид?

А вообще код примерно такой:

var F: textfile;
     s: string;
begin
  AssignFile(F,'text.txt');
  Reset(F);
  While not Eof(F) do begin
    ReadLn(F,s);
    if pos('|',s)<>0 then begin    
      Table1.Insert;
      Table1.FieldByName('Имя первого поля').AsString:=copy(s,1,pos('|',s)-1);
      Table1.FieldByName('Имя второго поля').AsString:=copy(s,pos('|',s)+1,length(s)-pos('|',s)+1);
      Table1.Post;
    end
    else if s<>'' then begin
      Table1.Insert;
      Table1.FieldByName('Имя первого поля').AsString:='';
      Table1.Post;
    end;
  end;
  CloseFile(F);
end;

Примечание: круто будет, если попадется строка типа '|||||||||' )))

Пытаюсь изменить ваш код, чтобы добавлять данные из файла в 5 столбцов, но заносится лишь первый, не могли бы поставить на путь истинный?

[phomm]

medved_program, лучше создать свою тему, чётко объяснить _свой_ вопрос в ней и привести Ваш код, а не уповать на телепатию форумчан по чужому коду 3+летней давности.
Из файла, как уже в теме упоминалось (что дбгрид по сути только для работы с бд), лучше читать в компонент стринггрид (вкладка компонент Advanced).

[medved_program]

она есть
http://www.programmersforum.ru/showthread.php?t=289587