- Код: Выделить всё
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;
я пишу текстовый редактор,непонимаю в чем ошибка