FreePascal.ru

Здесь работает все нормально

procedure TFAppend.Button1Click(Sender: TObject);
begin
ListTask.Add(TMemBlock.Create(LEName.Text,StrToInt(LESize.text),
StrToInt(LEStart.text),StrToInt(LETime.text)));
ListUnOper.Add(TMemBlock.Create(LEName.Text,StrToInt ...

TMemBlock(Obj).Size

при создании все правильно записывается (проверял при отладке), а при обращении из другого модуля он мне возвращает числа, которые я туда не записывал. В uses я сослался на тот модуль.

а выражение


var obj:pointer;
...
floor(TMemBlock(Obj).Size/SizeBlock ...

да, тупанул немного))

а если у меня список пуст, это не может вызывать исключение в следующем :

var obj:pointer;
begin
for obj in ListOper do
begin
if TMemBlock(Obj).StartTime+TMemBlock(Obj).Size-1>=t then
begin
...
end;
end;


Добавлено спустя 15 часов 12 минут ...

Я пока в самом начале, при добавлении в список записи происходит ошибка


TMemBlock = class
Name:string;
Size:integer;
Start:integer;
Time:integer;
StartTime:integer;
StartBlock:integer;
constructor create(AName:string; ASize,AStart,ATime:integer);
end;

var ...

Огромнейшее спасибо)

выдает ошибку на присвоение события, в чем ошибка?

img:=TImage.create(self);
timer1:=TTimer.Create(self);
label1:=TLabel.Create(self);
img.Height:=497;
img.Proportional:=true;
img.Width:=665;
img.Top:=0;
img.Left:=0;
img.Parent:=Self;
label1.Parent:=Self;
timer1.Interval:=1000;
timer1 ...