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.

Объяснение кода листинга программы

  1. Импортируется библиотека dstvdraw.
  2. Объявляется константа dbg со значением true.
  3. Определяется процедура debug, которая выводит переданный ей аргумент s на экран.
  4. Определяется функция findprof, которая считывает из файла f 10 строк и возвращает последнюю строку.
  5. Определяется процедура drawnc, которая открывает файл f, считывает из него строку, находит её длину и выводит эту длину на экран.
  6. Закрывается файл f.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.5 из 5
Похожие ответы