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

Вниз

Не могу обнаружить ошибку   Найти похожие ветки 

 
valievrf ©   (2002-04-10 19:57) [0]


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;
Shape1: TShape;
Button1: TButton;
DBText6: TDBText;
Label10: TLabel;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;
b:array of integer;
i,j,n:integer;

implementation

uses Unit1;

{$R *.DFM}



procedure TForm4.FormCreate(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to 8 do
begin
Table1.FindKey([Random(7)]);
b[i]:=Table1.FieldByName("Questonn").Value;
if i <> 1 then
begin
for j:=1 to i do
begin
if b[j]=b[i] then
begin
j:=i;
i:=i-1;
end;
end;

end;

end;

end;

procedure TForm4.Button1Click(Sender: TObject);
begin
Table1.Locate(IntToStr(b[n]));
n:=n+1;
end;




При компиляции ошибка выдается Assigment FOR-Loop variable "i", Assigment FOR-Loop variable "j"


 
dymka ©   (2002-04-10 21:08) [1]


if b[j]=b[i] then
begin
j:=i;
i:=i-1;

end;

Ты не имеешь права менять переменные цикла



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

Текущий архив: 2002.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-2442
toorick
2002-04-09 16:15
2002.05.02
таблица открыта


4-2723
cok11
2002-02-27 13:28
2002.05.02
Не фурычит!


4-2719
sdan
2002-02-28 17:38
2002.05.02
API


1-2535
Delph
2002-04-18 16:54
2002.05.02
Вопрос про событие OnClick и OnDblClick


3-2498
IronHawk
2002-04-10 13:00
2002.05.02
Приветствую Мастеров ! Эт снова Я ! Быстрый поиск по базе ?