Как прочитать информацию из текстового файла

← →
Алексей (2003-05-15 07:41) [0]

и раскидать ее по ячейкам таблицы с целью построения диаграмм?

← →
АлексейК (2003-05-15 09:14) [1]

var File:TextFile;
Path:String;
Str:String;
begin
Path:="путь до файла";
if FileExists(Path) then
begin
AssignFile(File, Path);
Reset(File);
while not EOF(File) do
begin
Readln(file, Str);//считваеш строку из файла
Анализируеш согласно формата записи и раскидываешь по ячейкам
end;
closefile(file);
end;
end;
Подобный пример есть в любой книжке.

← →
Соловьев © (2003-05-15 09:32) [2]

есть в демках компонента для работы с текстовыми таблицами...я не пробовал, но может получиться.

Если записи в текстовом файле упорядочены, то можно можно воспользоваться стандартным компонентом (TTable). Записи должны быть либо фиксированной длины либо содержать разделители (пробел, точка, апостроф).

В TTable:
назначь DatabaseName псевдоним или каталог, содержащий .txt.
Далее TableType:=ttASCII
Этого достаточно, чтобы увидеть все доступные таблицы в списке TableName.
Если все поля в таблице появляются в 1 поле, следовательно BDE не может понять структуру разделения записей в файле.

Как прочитать информацию из текстового файла Найти похожие ветки