база данных на делфи

[trokar]

Test1.txt вот пример вопросов к программе но только действия с обыкновенными дробями, а в примере с десятичными

[trokar]

вот что должна демонстрировать программа
1. Вывод стартовой формы.
2. Визуальное представление решения примера
3. Осуществлять тренинг.
4. Осуществлять контроль знаний.
5. Выдавать краткую справку о пользовании программой.
6. Выдавать сведения об авторе программы.

[стоматолог1887]

Добрый день. Для тестирования пациентов необходима программа-тест. Нашла исходники. Компиляция программа проходит, но когда пытаюсь ее запустить выводится сообщениеProject raised exception class Einouterror with message `I/O error 104`. Оговорюсь, что в программировании я - полный "ноль". Помогите, если сможете. Заранее спасибо.

unit Test;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure LoadQuestion;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
Var f: TextFile;
    FOpen: Boolean;
    TestName: String;
    QCurrent: Integer;
    QCount: Integer;
    QUser: Integer;


{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
begin
 FOpen:=false;
 if OpenDialog1.Execute then
begin
   AssignFile(f,OpenDialog1.FileName);
      {$I-} 
    Reset(f);
      {$I+}
      if IOResult<>0 then 
         begin
            MessageDLG('Ошибка открытия файла',mtError,[mbOk],0); 
Application.Terminate; 
         end;

      FOpen:=true; 
      ReadLn(f,TestName); 
      Form1.Caption:='Тест на тему: '+TestName; 
      ReadLn(f,QCount); 
      QCurrent:=0;
      QUser:=0;
      LoadQuestion;
   end else Application.Terminate;
end;
 procedure TForm1.LoadQuestion;

Var Str_F: String; 
begin
Inc(QCurrent); 
ReadLn(f,Str_F); 
Label1.Caption:=Str_F; 
ReadLn(f,Str_F); 
Label2.Caption:=Str_F;
ReadLn(f,Str_F); 
Button1.Tag:=StrToInt(Str_F); 
ReadLn(f,Str_F);
Label3.Caption:=Str_F;
ReadLn(f,Str_F);
Button2.Tag:=StrToInt(Str_F);
ReadLn(f,Str_F);
Label4.Caption:=Str_F;
ReadLn(f,Str_F);
Button3.Tag:=StrToInt(Str_F);
ReadLn(f,Str_F);
Label5.Caption:=Str_F;
ReadLn(f,Str_F);
Button4.Tag:=StrToInt(Str_F);
 end;

procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer; 
s1: String; 
p11,p12: Integer; 
s2: String;
p21,p22: Integer;
s3: String;
p31,p32: Integer;
s4: String;
p41,p42: Integer;
begin
i:=0; 
if Sender=Button1 then i:=Button1.Tag; 
if Sender=Button2 then i:=Button2.Tag;
if Sender=Button3 then i:=Button3.Tag;
if Sender=Button4 then i:=Button4.Tag;
QUser:=QUser+i;
if QCurrent=QCount then 
   begin
ReadLn(f,p11);
ReadLn(f,p12);
ReadLn(f,s1);
ReadLn(f,p21);
ReadLn(f,p22);
ReadLn(f,s2);
ReadLn(f,p31);
ReadLn(f,p32);
ReadLn(f,s3);
ReadLn(f,p41);
ReadLn(f,p42);
ReadLn(f,s4);
if (QUser>=p11) and (QUser<=p12) then ShowMessage(s1);
if (QUser>=p21) and (QUser<=p22) then ShowMessage(s2);
if (QUser>=p31) and (QUser<=p32) then ShowMessage(s3);
if (QUser>=p41) and (QUser<=p42) then ShowMessage(s4);
Close;
end else LoadQuestion;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if FOpen then CloseFile(f);
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

сообщениеProject raised exception class Einouterror with message `I/O error 104`.

думаю, что текстовый файл с вопросами, который Вы подсовываете программе - не корректен. Это и является причиной ошибки.