Text и PABCsystem.Text - PascalABC.NET
Формулировка задачи:
Возникла такая проблема:
Имеется dll в которой процедура с заголовком
procedure drawnc (f:Text);
И есть основная программа
Но по какой-то причине при запуске выдает ошибку в строке drawnc(f): "test.pas(5) : Нельзя преобразовать тип Text к PABCSystem.Text" хотя типы указаны одинаковые.
При попытке свести в обоих программах типы к PABCSystem.Text выдает ошибку в assign (f, 'test.txt'): "test.pas(4) : Нет перегруженной подпрограммы с такими типами параметров"
Как решить эту проблему?
Решение задачи: «Text и PABCsystem.Text»
textual
Листинг программы
library dstvdraw; const dbg=true; procedure debug(s:string); begin if dbg then writeln (s); end; function findprof (f:Text):string; begin var s:string; var i:integer; for i:=1 to 10 do readln(f,s); Result :=s; end; procedure drawnc (f:Text); begin reset(f); var prof:string; prof:=findprof (f); close(f); end; END.
Объяснение кода листинга программы
- Импортируется библиотека dstvdraw.
- Объявляется константа dbg со значением true.
- Определяется процедура debug, которая выводит переданный ей аргумент s на экран.
- Определяется функция findprof, которая считывает из файла f 10 строк и возвращает последнюю строку.
- Определяется процедура drawnc, которая открывает файл f, считывает из него строку, находит её длину и выводит эту длину на экран.
- Закрывается файл f.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д