Текущий архив: 2003.07.10;
Скачать: CL | DM;
Вниз
Опять про файл Найти похожие ветки
← →
Новенький (2003-06-28 17:45) [0]Подскажите такую вещь: Пользователь вводит номер строки и прога читает строку с этим номером из файла
т.е. If n=8 Then читать 8-ю строку.
Файл текстовый.
← →
Anatoly Podgoretsky © (2003-06-28 17:51) [1]А вопрос?
← →
Новенький (2003-06-28 22:13) [2]А вопрос как это осуществить. :)
← →
Anatoly Podgoretsky © (2003-06-28 22:23) [3]Чмтать файл с первой строки и до нужной или целиком и там брать строку. За прошедщую неделю эту тему несколько раз поднимали, может посмотришь сам?
К конце концов ты вопрос по сути так и не поставил, это состоит из многих частей, ты какую не умеешь делать? Не поверю, что совсем все не понятно, так быть не может.
← →
[BAD]Angel © (2003-06-28 22:47) [4]
procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f, "d:\1.txt");
reset(f);
repeat
n:=n+1;
readln(f, tmp);
until n=strtoint(Edit1.Text); //то число, которое ты ввел
closefile(f);
caption:=tmp;
end;
Страницы: 1 вся ветка
Текущий архив: 2003.07.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
