Форум: "Базы";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];

Вниз

Для тех кто видел программу и для тех кто ее не видел, в чем дело   Найти похожие ветки 

← →
valievrf   (2002-04-10 17:00) [0]

Вообщем я внес корректвы, теперь в массив у меня вводятся номера вопросов еще до того как программа откроется, на методе OnShow

Но есть ошибка, программа не хочет переходить на вопрос, на который ему указывает массив.
В чем трабл???

Код программы:


unit Unit4;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, DBCtrls, Db, DBTables;

type
TForm4 = class(TForm)
DBMemo1: TDBMemo;
DataSource1: TDataSource;
Table1: TTable;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
Label8: TLabel;
Edit1: TEdit;
Label10: TLabel;
Shape1: TShape;
Button1: TButton;
DBText6: TDBText;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;
Balls:integer;
proideno:integer;
b:array of string;
m, j:integer;
k:string;
implementation

uses Unit1;

{$R *.DFM}

procedure TForm4.FormActivate(Sender: TObject);
begin
Form1.visible:=false;
Table1.FindKey([Random(7)]);
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.FindKey([Random(7)]);
Form1.visible:=true;
Balls:=0;
proideno:=0;
end;



procedure TForm4.Timer1Timer(Sender: TObject);
begin
Label10.caption:=TimeToStr(Time);
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
if m >=3 then begin
Form4.close;
k:=IntToStr(Balls);
ShowMessage("Вы прошли тест на " + k + " баллов");
end
else
begin=StrToInt(Table1.FieldByName("Ball").Value) + Balls
end;
m:=m+1;
Table1.FindKey(b[m]);
Table1.
Edit1.text:="";
end;



procedure TForm4.FormShow(Sender: TObject);
var
l:integer;
begin
For m:=1 to 3 do
begin
Table1.FindKey([Random(7)]);
b[m]:=Table1.FieldByName("Questonn").Value;
For j:=1 to m-1 do
begin
if b[j] = b[m] then l:=m-1 else l:=m;
end;
end;
end;


---

← →
dymka   (2002-04-10 21:22) [1]

Мой совет:
На бумажке конкретно расписать последовательность действий, что должна делать программа, и только потом писать прогу... Вопрос задаешь ты не первый раз и видно, что ты сам слабо представляешь, что нужно получить...
Не пренебрегай таким советом... Я сам часто пишу программы сначала на бумаге, бывает даже в виде рассказа...
Второе - объясни подробнее задачу, и возможно тебе подскажут более изящные решения...

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c