[code lang=pascal]procedure TForm1.ButtonReadClick(Sender: TObject);
Var
f:textFile;
s:string; // назначаем переменную
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);//==
CloseFile(f);
End;[/code]
//== - тут, Вы предварительно выбрали фвйл, связали переменную
f с файлом,
Открыли для чтения и
Закрыли но
не прочитали его(конечно чнение файла описано дальше, а в методичке нет такого понятия - думать), тогда вопрос а зачем Вы это сделали.
Назначили переменную
s - но не используете её. Вам Delphi должно было написать , что переменная нигде не используется, задуматься - об этом в методичке ничего не написано.
Простите для VCL Delphi - ВЫ ещё не готовы.
VCL Delphi - это код, в котором есть свойства, параметры и события, обрабатывая которые можно писать код, который выполняет задачу. Но есть одно
но -
Кроме обработчиков событий - КОД DELPHI -жывет своей жызнью.
Пока Вы это не осмыслите, Вы постоянно будете наступать на грабли и писать все, что написано в методичке(даже той, которая хорошо написана), даже не думая, что Вы пишите.
Для начала напишите код, который выводит в консоль содержимое файла, пусть там будет пару строчек, имя произвольное, разширение произвольное, можно задать в программе, можно ввести с клавиатуры.
комменты обязательны,
к каждой строчке.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.