Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

Текстовый файл   Найти похожие ветки 

 
Fostr   (2003-08-10 20:12) [0]

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

AssignFile(fsourse, Edit1.Text); {связываем файл с файловой переменной}
Reset(fsourse); {открываем для чтения}
data:=" "; {переменная, в которую пишутся данные из файла}
for stroki:=5 to 8 do
begin
ReadLn(fsourse, s);
deviation:=copy(s,1,10); {прочитывваю данные}
data:=data+deviation;
end;

А получается то, что он действительно читает мне четыре строки, но не с пятой по восьмую, а с первой по четвертую!!!
Подскажите, плз, что делать!!!??


 
Dred2k ©   (2003-08-10 20:21) [1]

После data := " " поставь

for stroki := 1 to 4 do
Readln(fsourse, s);

потом for stroki:=5 to 8 do
замени на
for stroki:=1 to 4 do
Твой файл о переменной stroki ничего не знает. Читать строки неизвестного размера можно только последовательно, без позиционирования.


 
Fostr   (2003-08-10 20:23) [2]

Спасибо большое, сейчас попробую..


 
Fostr   (2003-08-10 20:30) [3]

УРА! Все заработало! Еще раз большущее спасибо! Представь, что в качестве благодарности ты сейчас пьешь пиво! :))


 
Dred2k ©   (2003-08-10 20:35) [4]

А я и так его сейча пью. Холодненькое... ;)



Страницы: 1 вся ветка

Текущий архив: 2003.08.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-81640
Maxim Pshevlotsky
2003-08-14 06:21
2003.08.25
Как извлечь значок у файла зная только его расширение?


3-81537
Echelon
2003-07-31 15:48
2003.08.25
Вопрос по Midas


1-81655
MegaVolt
2003-08-12 10:03
2003.08.25
Как сравнить переменную процедурного типа?


14-81914
Карелин Артем
2003-08-07 14:08
2003.08.25
А я на работе сейчас пиво пью.


1-81625
Zhker
2003-08-12 22:06
2003.08.25
Как добавить свою кнопку на панель IE