Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Вот решил классы освоить...   Найти похожие ветки 

← →
Shadow77   (2003-11-03 01:30) [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);
end;

type TLocationTable = class
PlrsCont:integer;
end;

var
Form1: TForm1;
LocationTable: TLocationTable;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
LocationTable.Create;
LocationTable.PlrsCont:=1; //<-Здесь Access Violation
LocationTable.Free;
end;

end.

---

← →
Вася Пупкин   (2003-11-03 01:40) [1]

LocationTable.Create;
замени на
LocationTable:=TLocationTable.Create;

---

← →
Shadow77   (2003-11-03 02:17) [2]

Да, теперь работает. Свежий взгляд это всегда хорошо. Спасибо.

---

← →
Palladin   (2003-11-03 02:17) [3]

Удалено модератором

---

← →
KSergey   (2003-11-03 08:15) [4]

[2] Shadow77 (03.11.03 02:17)
Да, теперь работает. Свежий взгляд это всегда хорошо.

Это не свежий взгляд.
Я не знаю, какие книги вы читали, но есть огромное подозрение, что не внимательно.

---

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

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.033 c