← →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;
Ты не имеешь права менять переменные цикла
Не могу обнаружить ошибку Найти похожие ветки
← →