Главная страница
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.008 c
6-2642
cypher
2002-02-18 18:19
2002.05.02
Сетевые диски


3-2495
Igor Kukhtin
2002-04-10 13:18
2002.05.02
Decision Cube


3-2470
Helen
2002-04-10 16:25
2002.05.02
Преобразование типа Byte к вещественному Double...


14-2654
Андрей Сенченко
2002-03-26 18:51
2002.05.02
Хроники лаборатории


14-2645
Donal_Graeme
2002-03-19 11:11
2002.05.02
программа для записи CD-R