проблеиа с выводом картинки из файла

[RedFox111]

Народ!, пишу простенькую прогу "Бегущий человек" на 12 ПК.
Начал с 12ого пк. при изменении регистра все нормально.

В строчке там где Form1.Visible вылетает сообщение об отключении класса EAccessViolation и Runtime 216. SOS. Помогите кто чем может.

вот код программы:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  Form1: TForm1;
  f,g:textfile;
  a:array[1..100] of integer;
  s:string;
  i:integer;

implementation


{$R *.dfm}


begin
s:='';

assign(input,'D:\registre.txt'); reset(input);

for i:=1 to 12 do
 readln(a[i]);

 read(s);
 if a[11]=1 then begin
  a[12]:=1;
  s:='ready';
 end;
close(input);

assign(output,'D:\registre.txt'); rewrite(output);

for i:=1 to 12 do
writeln(a[i]);

write(s);

close(output);

if s='ready' then begin
 Form1.Visible:=true;     {вот тут то все и вылетает}
 if Form1.Visible then
  Form1.Visible:=false;
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Вы написали код там, где его не нужно писать!

Когда Вы хотите, чтобы это код выполнился - кода открывается форма? Или по нажатию на какой-то элемент? Или по какому событию?!!

Там, где Вы написали, код выполняется ещё ДО СОЗДАНИЯ самой формы.

Скорее всего Вам нужно сделать следующее.
Перейдите в режим формы (F12).
Щелкните мышкой дважды в любое свободное место формы.
откроется редактор кода с обработкой события создания формы Form1 OnCreate;
вот на это событие и поместите ваш код.

примерно так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  s := '';

  assign(input, 'D:\registre.txt'); reset(input);

  for i := 1 to 12 do
    readln(a[i]);

  read(s);
  if a[11] = 1 then begin
    a[12] := 1;
    s := 'ready';
  end;
  close(input);

  assign(output, 'D:\registre.txt'); rewrite(output);

  for i := 1 to 12 do
    writeln(a[i]);

  write(s);

  close(output);

  if s = 'ready' then begin
    Form1.Visible := true; {вот тут то все и вылетает}
    if Form1.Visible then
      Form1.Visible := false;
  end;

end;

end.

к слову. любопытно...

Народ!, пишу простенькую прогу "Бегущий человек" на 12 ПК.
Начал с 12ого пк.

а что такое "ПК" - в данном контексте?!

[Sciv]

Однако вот этот код вообще к чему?

  if s = 'ready' then begin
    Form1.Visible := true; {вот тут то все и вылетает}
    if Form1.Visible then
      Form1.Visible := false;
  end;

а что такое "ПК" - в данном контексте?!

ТОже интересно

[RedFox111]

имею ввиду что делаю бегущий человек на 12 компах по кругу через локалку)
и спасибо за совет)
недавно на делфу перешел, вот и маюсь незнанием)

[RedFox111]

и да Svic, это чтобы картинка появилась, потом исчезла)

[RedFox111]

блин все сделал как сказал, но теперь
при компиляции пишет

Statement expected but 'PROCEDURE' found

и горит на строчке

procedure TForm1.FormCreate(Sender:TObject)

[Serge_Bliznykov]

и да Svic, это чтобы картинка появилась, потом исчезла)

О! Не хочу Вас расстраивать, но это не будет выглядеть так, как Вы хотите...
1-х. нужно не форму делать видимой/невидимой - а саму картинку...
2-х, либо задержку нужно вставлять, либо таймером пользоваться - смотрите, что Вы написали - отобразить форму. и сразу же - убрать. Вы НЕ УСПЕЕТЕ ничего увидеть!!