Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.02.14;
Скачать: CL | DM;

Вниз

Помогите создать класс   Найти похожие ветки 

 
oleg1963lora   (2009-12-17 15:22) [0]

Здравствуйте уважаемые Мастера! Помогите пожалуйста исправить объявление класса. Компилируется, но вызывает исключение. Что я не сделал? Текст:
unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
 public
 end;

 TStatistics = class(TObject)
  private
     FList : TStringList;
  public
     Constructor Create;
     Destructor Destroy;override;
  end;

var
 Form1: TForm1;
 Statistic : TStatistics;

implementation

{$R *.dfm}
{ TStatistics }

constructor TStatistics.Create;
begin
 inherited;
 FList:=TStringList.Create;
end;

destructor TStatistics.Destroy;
begin
 FList.Free;
 inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Statistic:=Statistic.Create; {здесь вызывает исключение}
  Statistic.Destroy;

end;

end.


 
Сергей М. ©   (2009-12-17 15:23) [1]


> Statistic:=TStatistic.Create


 
Сергей М. ©   (2009-12-17 15:24) [2]

Точнее

> Statistic:=TStatistics.Create


 
oleg1963lora   (2009-12-17 15:30) [3]

Спасибо огромное! Все работает!

Тема закрыта.


 
Германн ©   (2009-12-17 15:32) [4]


> Тема закрыта.

После сессии закроем. :)



Страницы: 1 вся ветка

Текущий архив: 2010.02.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-1237570264
atruhin
2009-03-20 20:31
2010.02.14
Как реализовать контроль MouseClick в приложении


2-1260997690
Aleks
2009-12-17 00:08
2010.02.14
как загрузить рисунок имеющий расширение .png в компонент Ima


2-1260437170
yantux
2009-12-10 12:26
2010.02.14
Как поменять цвета ячеек у TStringGrid?


2-1260663047
inkakas
2009-12-13 03:10
2010.02.14
использование png и canvas


1-1223987293
Vunda
2008-10-14 16:28
2010.02.14
Ошибка при создании ole объекта