Question

我目前正在编写一个库存控制系统，当编码最后一件事时，我得到了105错误。我只是想知道是否有人对错误有任何想法。感谢。

closefile(ContractOrdersfile);
closefile(ContractFile);

assignfile(ContractPriceListFile, 'Contract Price List.txt');
rewrite(ContractPriceListFile);
reset(ContractFile);

while not eof(ContractFile) do
begin
    read(ContractFile, Contract);
      if Contract.Flag = true then
       begin
        Writeln(Contract.Contract_Name + '  ' + inttostr(Contract.Contract_ID) + '  ' +     CurrtoStr(Contract.Search_Price));
        Contract.Search_Price := StrtoCurr('0.00');
        Seek(ContractFile, (Filepos(ContractFile)-1));
        write(ContractFile, Contract);
       end;
end;

ShellExecute(Handle, 'open', PChar('notepad'), PChar('Contract Price List.txt'), nil,    SW_SHOW);
closefile(ContractFile);
closefile(ContractPriceListFile);enter code here

Answer 1

I / O错误105是＆＃34;文件未打开输出＆＃34;。它通常是由于在打开文件后未能设置适当的FileMode，或者是使用非控制台应用程序中的Write或WriteLn引起的。

最有可能是由WriteLn块中写入合同信息的if引起的。它似乎是进入控制台（没有文件被指定为第一个参数）。您应该提供一个文件作为第一个参数，或者确保您正在运行控制台应用程序。

我目前正在编写库存控制系统并获得105错误

1 个答案: