Скачать: 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 вся ветка

Скачать: CL | DM;



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