AccesViolation at... (не знаю в чем проблема)

[pastuhdima]

Проблема возникает при нажатии Button1

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4,form3: TForm4;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var inifile:tinifile;
    pass,url:string;
begin
  url:=application.ExeName;
  url:=extractfiledir(url);
  if url[Length(url)]<>'\' then url:=url+'\';
  inifile:=tinifile.Create(url+'cfg.ini');
  pass:=inifile.ReadString('password','key','111');
  if edit1.Text='' then label2.Visible:=true else
    begin
      if edit1.Text<>pass then label2.Visible:=true else
        begin
          form3.show;
          form4.Hide;
        end;

    end;
  inifile.Free;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  close;
end;

end.

[Вадим Мошев]

Запустите эту программу в Делфи, а когда она покажет ошибку, укажите строку, в которой происходит ошибка.

[pastuhdima]

Не показывает строку... просто выбивает 'AccesViolation at address 004a9d52 in module 'pass.exe'...'

[phomm]

Думаю, у Вас не создана форма3 , Вы только объявили её как переменную.
советую создать её отдельно, из меню файл-новый-форма. Она добавится к проекту новым модулем, этот модуль прописываете в uses модуля первой формы (форм4) и уже работаете с разными формами
Если же вы хотите абсолютно аналогичную форму, то выберите меню проект-исходный код (project-source code)? откроется код проекта, там скопируйте строчку Application.createform(Tform4, form4); и замените form4 на form3
EDIT
Поглядел ещё исходник из второй вашей темы (вообще, конечно, запрещено создавать кросспост-темы ) я так понял? Вы хотите сделать чтобы из одной формы можно было обращаться к другой, так вот - убирайте объявления типа Form4,form3: TForm4; должна быть только переменная соответствующая типу, а чтобы добавить взаимодействие с другой формой - добавляйте в uses имя модуля с нужной формой !

[pastuhdima]

Сообщение от phomm

Думаю, у Вас не создана форма3 , Вы только объявили её как переменную.

У меня создана форма3 все есть но не могу нормально использовать программу постоянно выбивают ероры.

[phomm]

Прочитайте то, что после слова EDIT в предыдущем моём посте и исправьте, как указано.
Выбивают ероры - это гопники в подворотне, а ошибки надо показывать текстом, чтобы другие поняли, о чем Вы

[pastuhdima]

Сообщение от phomm

Прочитайте то, что после слова EDIT в предыдущем моём посте и исправьте, как указано.
Выбивают ероры - это гопники в подворотне, а ошибки надо показывать текстом, чтобы другие поняли, о чем Вы

Спасибо, уже исправил проблему.

[Вадим Мошев]

Расскажите, в чём была проблема. Это будет полезно и другим.

[pastuhdima]

Сообщение от Вадим Мошев

Расскажите, в чём была проблема. Это будет полезно и другим.

Мне рассказали что проблема в инициализации. Форм3 и форм4 не инициализировались. По этому при открытии программы постоянно выбрасывали ошибки. По этому переписал программу и сделал, чтобы для начала работы нужно зайти Файл-Начать работу... Спасибо всем кого заставил мучатся)