Class ans Constructor

JohnS
Дата: 16.06.2009 15:13:57
Hi All

Сделал класс , проверил , работает . Подключил к рабочему проекту.
Воот . Так любая команда в Constructor вызывает Acess Violation . HELP .


type
  TSuperProcess=class
    private
      f_FIbdb:TpFIBDatabase;
      f_iniM:Tinifile;
    public
      Constructor Create(a_FIBdb:TpFIBDatabase;a_sPathIni:string);//Ни вздумать  объекту a_FIBdb:TpFIBDatabase  CLOSE делать !!!!!!
      Destructor Destroy;
     
  end;

Constructor  TSuperProcess.Create(a_FIBdb:TpFIBDatabase;a_sPathIni:string);
begin
  inherited Create;
  //Пошло  создание объектов
  f_FIbdb:=a_FIBdb;
  f_iniM:=Tinifile.Create(a_sPathIni);
end;
Ryz
Дата: 16.06.2009 15:16:26
a_FIBdb чему равно? Не nil случаем?
JohnS
Дата: 16.06.2009 15:17:21
Ryz
a_FIBdb чему равно? Не nil случаем?


Да нет .
Это тоже ругается f_iniM:=Tinifile.Create(a_sPathIni);
OracleLover
Дата: 16.06.2009 15:19:15
JohnS,

а вот это зачем?

inherited Create;
Ryz
Дата: 16.06.2009 15:19:25
Напиши полностью пример, который глючит.
Из приведенного кода непонятно, все должно работать.
Dimitry Sibiryakov
Дата: 16.06.2009 15:39:09

Ryz
Напиши полностью пример, который глючит.

Держу пари, что стандартные грабли класса
var MyObj: TMyObj;
begin
  MyObj.Create;
end;

Posted via ActualForum NNTP Server 1.4

Ryz
Дата: 16.06.2009 15:50:01
f_iniM:=Tinifile.Create(a_sPathIni);
В примере же нормально сделано.
Хотя, видимо, да.
Anatoly Podgoretsky
Дата: 16.06.2009 19:09:58
А где ты пример взял и кроме утверждения автора ничего нет.

--
http://www.podgoretsky.com
JohnS
Дата: 16.06.2009 21:40:18
Бугага ! Я класс создал неверно

var    l_SUper:TSuperProcess;
l_SUper.Create(dm.pFIBDatabase1,pr.LocalPath+'conf\xLoader.ini');
Nebary
Дата: 16.06.2009 21:42:49
Dimitry Sibiryakov выиграл пари! :)