Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
1-2541
Yuraz
2002-04-18 11:08
2002.05.02
Поиск, подсчёт, вывод на экр переменных в перловском файле ($var)


6-2632
dedoff
2002-02-16 18:07
2002.05.02
Как отправить почту через DNS-сервер(-)


6-2629
handra
2002-02-18 11:13
2002.05.02
DayTime-сервисы


1-2515
LiNkS
2002-04-20 23:30
2002.05.02
Новые компоненты убирают старые....


7-2688
Wman
2002-02-06 12:14
2002.05.02
НИЗКИЙ ПРИОРИТЕТ, HELP ME