Считывание текстового файла сложной структуры, Работа с файлами Опции

[Atreides]

Уважаемые, столкнулся с такой непростой задачкой, как работа с текстовым файлом сложной структуры. Нужно считать с него коды станций, номера платежей, суммы и коды статей. И дату. Желательно в табличку запихнуть для удобства работы. Единственный вариант, который приходит в голову, это построчное считывание и анализ. Подскажите какими методами такое можно провернуть?

Сообщение отредактировано: Atreides - 28.01.2010 23:07

[Гость]

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

//чтение из файла
	while not EOF(f) do
	begin
		readln(f,buf);	// прочитать строку из файла
		Memo1.Lines.Add(buf); // добавить строку в поле Memo1
	   if buf[27]='З' then
		Form4.Edit2.Text:=copy(buf,30,42);
		end;
	  CloseFile(f); // закрыть файл
	  begin
		 Form4.ComboBox1.Text:=mounth;
		 Form4.Edit3.Text:=god;
		 data1:=mounth + ' ' + god;
		 Form4.Edit3.text:=data2;

	  end;
		 end;