@Nadya7

Как исправить эту ошибку?

[Fatal Error] Unit1.pas(6): File not found: 'RusTrans.dcu'


spoiler
unit Unit1;

interface

uses
    SysUtils, RusTrans;
uses
  Windows, Messages,  Variants, Classes, Graphics, Controls,
  Dialogs;


const
  FileDir='C:\Users\Надя\Desktop\С.Р.1\1';

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  MyFile:Text;                       //файловая переменная
  FilePath, FileName, Temp:string;  //переменные для строк
  i, imax: Integer;
  label
  Exit; //меика выхода

implementation

{$R *.dfm}
begin
  writeln(Rus('Введите имя файла'));
  readln(FileName);
  writeln;
  FilePath:=fileDir+FileName; //путь к файлу
  AssignFile(MyFile,FilePath);  //связь файлом на диске
  {$I-}                         //отключить контроль ошибок
  Rewrite(MyFile);          //создать новый файл
  {$I+};                   //включить контроль ошибок
  if IOResult=0            //проверить ошибку открытия файла
    then writeln (Rus('Спасибо'))
      else
        begin
          writeln(Rus('Ошибка'));
          readln;
          goto Exit     //выход при ошибке
        end;
    writeln;
    imax:=5;
    writeln(Rus('Введите '),imax,Rus(' строк'));
    for i:=1 to imax do   //повторять 5раз
      begin
       write(Rus('Строка'),i,'=');
       readln(Temp);   //чтение строки с клавиатуры
       writeln(MyFile, Temp);     //запись этой строки в файл
      end;
  CloseFile(MyFile);  //закрыть файл
  Reset(MyFile);    //открыть его для проверки
  i:=1;
  writeln;
  writeln(Rus('Содержимое файла'));
  writeln;
  while not EOF(MyFile) do  //повторять до конца файла
    begin
      readln(MyFile, Temp); //чтение строки из файла
      writeln(Rus('Строка'),i,' = ',Temp);  //вывод этой строки на дисплей
      i:=i+1;
    end;
  writeln;
  CloseFile(MyFile);  //закрыть файл
  {$I-} //отключить контроль ошибок
  Append(MyFile); //открыть файл для добавления строк
  {$I+};  //включить контроль ошибок
    if IOResult=0 //проверить ошибку открытия файла
      then writeln('OK')
        else
          begin
            writeln(Rus('ошибка'));
            readln;
            goto Exit //выход при ошибке
          end;
        writeln;
        writeln(Rus('Введите еще'),imax,Rus('строк'));
          for i:=imax+1 to imax*2 do  //повторять 5 раз
        begin
          write(Rus('Строка'),i,' = ');
          readln(Temp); //чтение строки с клавиатуры
          writeln(MyFile,Temp)  //запись этой строки в файл
        end;
      CloseFile(MyFile);  //закрыть файл
      Reset(MyFile);  //открыть его для проверки
      i:=1;
      writeln;
      writeln(Rus('Содержимое файла'));
      writeln;
      while not EOF(MyFile) do  //повторять до конца файла
        begin
          readln(MyFile,Temp);  //чтение строки из файла
          writeln(Rus('Строка'),i,' = ',Temp);  //вывод этой строки на дисплей
          i:=i+1;
        end;
      writeln;
      writeln('OK');
      readln;
      CloseFile(MyFile);  //закрыть файл
    Exit:;
 end.
  • Вопрос задан
  • 67 просмотров
Решения вопроса 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
Узнайте, где у вас находится файл RusTrans.pas или хотя бы RusTrans.dcu. Положите в папку с проектом.
Ответ написан
Пригласить эксперта
Ответы на вопрос 1
tsklab
@tsklab
Здесь отвечаю на вопросы.
Ошибка не в коде, а в настройка RAD, которая не знает где находится RusTrans. Можно положить RusTrans.pas в папку с проектом, например. Или RusTrans.dcu.
А без это RusTrans можно делать ?
Нет. Вы же используете функции из него (Rus).
отдельно самостоятельно нужно создавать RusTrans.dcu?
Без RusTrans.pas вы сами не сделаете RusTrans.dcu.
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы