Форум: "Основная";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

Подскажите с файлами...   Найти похожие ветки 

← →
NewGuest   (2002-12-22 00:18) [0]

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

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

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

---

← →
Bosh   (2002-12-22 00:23) [1]

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

---

← →
Kotka   (2002-12-22 00:59) [2]

>NewGuest

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

---

← →
drin   (2002-12-22 01:42) [3]

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

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;



---

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

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

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

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

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

---

← →
NewGuest   (2002-12-22 18:52) [5]

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

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

т.е.

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

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

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

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

---

← →
NewGuest   (2002-12-23 10:39) [6]

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

---

← →
RWolf   (2002-12-23 11:29) [7]

лови:

var sl:TStringList;

....

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


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

---

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

Форум: "Основная";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c