Скачать: CL | DM;

Как прочитать первую и вторую строку текстового файла(*txt)?   Найти похожие ветки 

← →
Aleksandr   (2005-02-23 19:47) [0]

Подскажите как прочитать первую и вторую строку текстового файла(*txt)? Readln? Если да то как указать строку, через массив?

---

← →
begin...end ©   (2005-02-23 19:51) [1]

> Aleksandr   (23.02.05 19:47)

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

---

← →
Aleksandr   (2005-02-23 19:52) [2]

Спасибо...

---

← →
Anatoly Podgoretsky ©   (2005-02-23 19:53) [3]

ReadLn первая
ReadLn вторая

---

← →
PZ   (2005-02-23 19:58) [4]

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;

---

← →
ghg ©   (2005-02-24 09:25) [5]

TStringList тоже очень удобен

---

← →
Anatoly Podgoretsky ©   (2005-02-24 13:33) [6]

ghg ©   (24.02.05 09:25) [5]
Ради лвух первых строк гнать 300 мб в память?

---

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

Скачать: CL | DM;



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