VPF::Заморочки с классами - Форум программистов

Kationchic

Дата 9.4.2008, 08:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 6.10.2007

Репутация: нет
Всего: нет

Сильно не пинайте только...
Проблема такая - есть класс

Код


type TImageClass = class(TObject)
  private
    i_h, i_w: integer;
  public
    constructor Create(var img: TImage);
    .......
end;

потом в коде когда я обращаюсь к полям:

Код


constructor TImageClass.Create(var img: TImage);
begin
  i_h:=img.Height;
  i_w:=img.Width;
......
end;

Все компилируется, но при запуске вылетает.
Подскажите, что не так.

Rennigth

Дата 9.4.2008, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Kationchic, ну а img то существует?
Покажи как используешь. Плюс экземпляры классов и так всегда по ссылке передаются, т.е. var в конструкторе не нужен.

--------------------

(* Honesta mors turpi vita potior *)

pseud

Дата 9.4.2008, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

все работает без проблем

пример:

Код



unit Unit1;

interface

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

type TImageClass = class(TObject)
  private
    i_h, i_w: integer;
  public
    constructor Create(var img: TImage);
end;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TImageClass }

constructor TImageClass.Create(var img: TImage);
begin
  i_h:=img.Height;
  i_w:=img.Width;
end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  ic: TImageClass;
begin
  ic := TImageClass.Create(Image1);
  try
  finally
    ic.Free;
  end;
end;


end.

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »