Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как прочитать первую и вторую строку текстового файла(*txt)? [D7, WinXP]

Aleksandr © (2005-02-23 19:47:00)
Подскажите как прочитать первую и вторую строку текстового файла(*txt)? Readln? Если да то как указать строку, через массив?

Anatoly Podgoretsky (2005-02-24 13:33:00) [1]
ghg © (24.02.05 09:25) [5]
Ради лвух первых строк гнать 300 мб в память?

ghg (2005-02-24 09:25:00) [2]
TStringList тоже очень удобен

PZ (2005-02-23 19:58:00) [3]
procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
S1 : string;
S2 : Array[1..2] of String;
begin
if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
Readln(F, S1);
S2[1] := S1;
Readln(F, S1);
S2[2] := S1;
CloseFile(F);
end;
ShowMessage(S2[1]+#10#13+S2[2]);
end;

Anatoly Podgoretsky (2005-02-23 19:53:00) [4]
ReadLn первая
ReadLn вторая

Aleksandr (2005-02-23 19:52:00) [5]
Спасибо...

begin...end (2005-02-23 19:51:00) [6]
> Aleksandr (23.02.05 19:47)

Текстовые файлы являются файлами последовательного доступа. Это означает, что для того, чтобы прочитать вторую строку, надо сначала прочитать первую. Строки читаются с помощью процедуры ReadLn. Перед чтением файловая переменная должна быть связана с маршрутом доступа (AssignFile) и файл должен быть открыт для чтения (Reset). После чтения файл должен быть закрыт (CloseFile).

Наверх

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