Легкий вопрос, сорри ;) работа с файлами

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Сообщение Чапаев » 14.10.2005 17:47:44

Дарофф!
Очень давно не писал, посему вопрос вот какой.
Совсем забыл как работать с файлами, помню только то, что файл=переменная.
так вот, никто не приведет кусочек кода, как из файла считать первую строку и присвоить ее переменной.
Мне бы только вспомнить, а с остальным сам разебрусь ;)
Чапаев
 

Сообщение AShen » 14.10.2005 18:11:31

{пример для классического паскаля}
var f: file of char; {объявляем символьный файл}
i: char;
begin
open(f); {открываем файл f}
readln(f, i); {чиаетм из файла f символ в переменную i}
writeln(i); {выводим на экран значение переменной i}
close(f); {закрывем файл}
end;
Аватара пользователя
AShen
постоялец
 
Сообщения: 155
Зарегистрирован: 26.08.2005 10:22:44
Откуда: Новороссийск

Сообщение SovNarKom » 14.10.2005 18:12:51

var
MyFile: TextFile;
str: String;

begin
AssignFile(MyFile,'myfile.txt');
Reset(MyFile);
ReadLn(MyFile,str);
CloseFile(MyFile);
end;
SovNarKom
постоялец
 
Сообщения: 389
Зарегистрирован: 28.05.2005 10:37:39
Откуда: Воронеж [vrn] [36]

Сообщение Guest » 14.10.2005 18:17:20

;)
Гы... пасиб ;)
прям децтво вспомнилось ;)
Guest
 


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 42

Рейтинг@Mail.ru