Текущий архив: 2003.01.06;
Скачать: CL | DM;
Вниз
Подскажите с файлами... Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.013 c
