Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];
Вниз
Как прочитать первую и вторую строку текстового файла(*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 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c
