класс исключения runError(103

[lymar]

прошу помогите я на писал программу но при работе lazarus мне выдал ошибку класс исключения runError(103) что это может быть и как это исправить
заранее спасибо

[iskander]

FPC User's Guide, Appendix D-Run-time errors:

...
103 File not open
Reported by the following functions : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, and BlockWrite if the file is not open.

[Little_Roo]

lazarus мне выдал ошибку класс исключения runError(103)

Оно?
http://www.lazarus.freepascal.org/index ... ic=14437.0

И лучше указывать ТТХ - версию ОС, лазаря, fpc и хоть кусок программы, где вызывается исключение

[lymar]

FPC User's Guide, Appendix D-Run-time errors:
...
103 File not open
Reported by the following functions : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, and BlockWrite if the file is not open.
а можно по русский а то я в этом деле новичок позжалуйста

Добавлено спустя 6 минут 5 секунд:
windows xp fps 2.4.2
программа

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
procedure korni(a,b,c:real;var x1,x2:real;var pr:boolean);
var d:real;
begin
d:=b*b-4*a*c;
if d<0 then
    pr:=false
else
   begin
     pr:=true;
     x1:=(-b+sqrt(d))/2*a;
     x2:=(-b-sqrt(d))/2*a;
   end;
end;
var a_,b_,c_,x_,x1_,x2_:real; pr_:boolean;
begin
  writeln('a_:=');
  readln(a_);
  write('b_:=');
  readln(b_);
  write('c_:=');
  readln(c_);
  if a_=0 then
  begin
    if b_<>0 then
     begin
       x_:=-c_/b_;
       writeln('x= ',x_);
       end
    else
    writeln('нет коней');
    end
  else
  begin
    korni(A_,B_,C_,X1_,X2_,PR_);
    if pr_=false then
     writeln('нет корней')
     else
       writeln('x1=',x1_ ,'x2=',x2_);
     end;
end;
end.

.

Добавлено спустя 3 минуты 40 секунд:
дело в том что сама программа запускается а вот работать не хочет
прикладываю кусок с ошибкой:
writeln('a_:='); вот здесь ошибка выделена серым цветом вся строка
readln(a_);
write('b_:=');
readln(b_);
write('c_:=');
readln(c_);
if a_=0 then
begin
if b_<>0 then

[Little_Roo]

программа
unit Unit1;

Пользуйтесь тегом Code
И потом, как в процедуре два var ?

И "Как, Холмс ?" можно в оконнную процедуру впихать консольную ????
Подозрение, что сработал метод тупого копи-паста...
Или уж консольная программа - write-read - или оконное приложение - тогда используйте TEdit-TLabel

А в данном примере - ввод-вывод из несуществующей консоли - вот и 103 ошибка - не понятно, откуда читать, куда писать...

[iskander]

2 lymar
Если Вам нужен консольный ввод-вывод - используйте консольное приложение.
С переводом текстов неплохо справляется http://translate.google.com/#en|ru

[lymar]

огромное спасибо