@vsvladan

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Image: TImage;
procedure FormCreate(Sender: TObject);
procedure lab(ii,jj:integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a:array [1..100,1..100] of Byte;
i,j,x,y,n,m:Integer;
f: TextFile;

implementation

{$R *.dfm}
procedure lab(ii,jj:integer);
begin
image.canvas.Color:=clred;
image.canvas.rectangle (j*20,i*20,j*20+20,i*20+20);
end;
if (a[ii,jj])=3 then
ShowMessage('YAHOO');Halt end; a[ii,jj]
if (a[ii+1,jj]=0) then lab (ii+1,jj)
if (a[ii,jj+1]=0) then lab (ii,jj+1)
if (a[ii-1,jj]=0) then lab (ii-1,jj)
if (a[ii,jj-1]=0) then lab (ii,jj-1)
sleep (500);
Form1.repaint;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);

begin
AssignFile(f,'File1.txt'); Reset (f);
Readln (f,n,m);
image.canvas.Brush.Color:=clGray;
for i:= 1 to n do
for j:= 1 to m do
begin
read (f,a[i,j]);
if a[i,j]= 1 then image.canvas.Rectangle(j*20,i*20,j*20+20,i*20+20);
if a[i,j] =2
then x:=j; y:=i;
end;
Closefile(f);
end;

end.

у мея тут ошибка выходит image.canvas.Color:=clred;
не могу определить в чем она состоит. помогите пожалуйста

0

@Waddonator

потому, что Ваша процедура не знает, что такое image.

0

angstrom

1-ку потерял.

@vsvladan

У меня во всей программе описано image

0

angstrom

Ну да, там нужно писать с явным указанием формы.
С 1-ой я погорячился.

@vsvladan

описал как говрили, теперь проблема if (a[ii,jj])=3 then

0

@Waddonator

vsvladan, вы Delphi знаете? У Вас в процедуре 1 begin и 5 end. Их должно быть одинаковое количество. Кроме того, ваша процедура вообще ниоткуда не вызывается.

0

angstrom

Откуда этот код выдран? Идёт обращение к массиву по переменным, которые не только не инициализированы, но и, главное, не описаны.

@vsvladan

я эту программу писал вслед за учителем, у него она запустилась, я к нему подходил, сравнивали, одинаково, но причину он не нашел

0

angstrom

НЕ МОГЛА запуститься, это из области фантастики.