- Код: Выделить всё
- procedure TForm1.Button1Click(Sender: TObject);
 var cud:TextFile;
 begin
 Opendialog1.Execute;
 path:=Opendialog1.Filename;
 Assign(cud,path)
 Reset(cud);
 while not Eof(cud) do
 begin
 Readln(cud,path);
 end;
 end;
я пишу текстовый редактор,непонимаю в чем ошибка




 Но мы то люди самые обычные, талантами не обременённые. Как нам Вас понять?
 Но мы то люди самые обычные, талантами не обременённые. Как нам Вас понять?