Страница 3 из 3
Re: Задача на текстовые файлы(Delphi)
Добавлено: 15 май 2008, 22:57
MOTOCoder
А собственно символы из файла читаются?
Может идет ошибка при чтении, и в переменных получаются нули.
Попробуйте вывести прочитанные символы на экран, по идее все должно работать.
Re: Задача на текстовые файлы(Delphi)
Добавлено: 15 май 2008, 23:56
DOM
Я переправил 3-ю процедуру вот так:
Код: Выделить всё
procedure TForm1.N3Click(Sender: TObject); //Процедура открытия файла
begin
Reset(F);
while filepos(F)<>2 do
Read(F,m);
while filepos(F)<>3 do
Read(F,n);
Label2.Caption:=m;
Label3.Caption:=n;
end;
Работает все замечательно. Как вы думаете таким методом можно делать?значения filepos(F) с какого вообще начинаются? С 0? Правильно ли тогда я написал?
P.s В Label'ы выводит 1-й символ и 2-й!(вроде правильно)
Re: Задача на текстовые файлы(Delphi)
Добавлено: 16 май 2008, 14:58
MOTOCoder
Как-то FilePos не пользовался, но элементы вроде с 1 считаются.
Можно попробовать читать через TFileStream, у меня с ним никогда проблем не было.
Re: Задача на текстовые файлы(Delphi)
Добавлено: 16 май 2008, 17:05
somewhere
FilePos - отсчет элементов с нуля. Filepos не может быть больше Filesize - отсюда даже если не помнишь, легко догадаться.