| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите с файлами... [D7, Win2k]

NewGuest ©   (2002-12-22 00:18:00) 

Как прочитать из файла ТОЛЬКО первую строчку, не зависимо сколько записей в файле...

и если кто сможет ответить как считывать записи в обратном порядке... т.е. не так while not Eof... do ... А что-нибудь нечто for eof downto 0 do

Спасибо большое тем кто ответил или даже прочитал..!

---

RWolf   (2002-12-23 11:29:00) [1]

лови:

var sl:TStringList;

....

sl:=TStringList.Create;
sl.LoadFromFile("myfile.txt");


Теперь sl[0] - первая строка, sl[sl.count-1] - последняя.

---

NewGuest   (2002-12-23 10:39:00) [2]

Энтузиазм кончился? ))

---

NewGuest   (2002-12-22 18:52:00) [3]

Спасибо всем кто ответил!

>> уточнения на второй вопрос
я даже не знаю как правильней: использовать типизированные или нетип...
Если записи могут состоять из большого по объему текста, то хотелось бы их использовать... но каждая в моем алгоритме начинается с того когда она была туда записана... затем (возможно) разграничить что нить типа #########
и дальше текст...

т.е.

12.11.02
#####
Текст
Причем на нескольких строках, с использованием
ENTER

13.11.02
#####
Привет...

ВОт... И читать мне их приходится с конца... т.е. с последней записи... чтобы можно было программой просто напросто пролистать эти записи... (почему с конца?) потому что отображается у меня последняя запись... и листать ели чего прийдется назад... А вообще я попытаюсь додумать до универсального кода, с пом. которого можно было бы листать назад и вперед (т.е.) считывать записи как назад, так и вперед...
я честно говоря плохо представляю как работать с записями, просто не знаю как оно будет выглядеть... хотя бы простенький кодик )) чтоб посидеть пошаманить ...

Большое спасибо что удили время...

---

Слесарь Матерящийся   (2002-12-22 11:03:00) [4]

>ТОЛЬКО первую строчку

Текстовый файл:

Читаем литеры по одной -- пока не ( 0 или $0D или $0A или (Конец файла) )

Прочитанные литеры помещаем в буфер, ну или добавляем к строке (AnsiString)

---

drin   (2002-12-22 01:42:00) [5]

Пример для текстового файла

Var
f: text;
filename: string;
fiststring: string;
begin
write("Input name of file: ");
readln(filename);
assign(f, filename);
{$I-}
reset(f);
{$I+}
if IOResult<>0 then
begin
write("File not exists");
exit
end;
readln(f, firststring);
close(f);
write("First sitring: ", firststring);
readln;
end;



---

Kotka   (2002-12-22 00:59:00) [6]

>NewGuest

А какой формат файла: типизированный или текстовый, т.к. строки в текстовых файлах, а записи в типизированных. От этого и будет зависеть ответ на вторую часть вопроса.

---

Bosh   (2002-12-22 00:23:00) [7]

что бы прочитать только первую строку в файле устанавливаем поицию чтения на начало
seek(File,0);
и читаем

---

Наверх