|
Платные хостинги
Раскрутка сайта
Книги по программированию
Как создать компонент?, создание компонента вручную
- Мне нужно внутри функции создать компонент TTable, подключиться к базе данных и прочитать оттуда одно значение. Но я не знаю, как программно создать компонент TTable. На сколько я понимаю, нужно вызывать метод Create. Но что передавать в качестве AOwner?
- Если передашь nil, уничтожать объект обязан ты сам, если передашь другой компонент, то он перед своим уничтоженим удалит из памяти и твой...h := TMyComponent.Create (Self); //Self = Form1, например - если это происходит внутри класса TForm1.h.Parent := Self; //Это только для визуальных компонентов, на будущее...h.Top := 100;h.Left := 100; //Тоже..................h.Free; //Хорошая привычка в любом случае А вообще, поиск рулит Это сообщение отредактировал dm9 - 30.11.2004, 14:27
- Вообще-то я делаю dll, внутри которой будет функция для чтения базы данных:Код library BDEAccess;uses SysUtils, Classes, DBTables;var table: TTable;{$R *.res}function Get: PChar; stdcall;begin Get := 'ok';end;exports Get;begin table.Create(nil); table.Destroy(); table.Free();end.highlightSyntax('delphiZlNTA1','delphi');Потом в другом проекте:Код function Get:PChar; external 'c:\Projects\BDEAccess\BDEAccess.dll';procedure TForm1.FormClick(Sender: TObject);begin MessageBox(0,Get,'1',MB_OK);end;highlightSyntax('delphiNhOTY=','delphi'); и программа виснет. Что за фигня?
- Код begin table.Create(nil); table.Destroy(); table.Free();end.highlightSyntax('delphiI3YmQ3','delphi'); - так неправильноСоздание компонента:Код table := TTable.Create (nil);highlightSyntax('delphiRmZTQy','delphi');
- А ещё если в одном месте пишешь stdcall, пиши это ради приличия и в другом месте Хотя в данном случае это роли не играет.
- Вот так? - Код function Get:PChar; stdcall; external 'c:\Projects\BDEAccess\BDEAccess.dll';highlightSyntax('delphi5YjEzM','delphi');
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
