ругается
Код:
procedure TForm1.Button3Click(Sender: TObject);
var i,j,k:integer; obj : TFileItemData;
begin
obj.id:=1111;
obj.FileName := '222222';
obj.Size := 333333;
obj:=listbox1.Items.Objects[1];
AddToMemoCb2(obj.FileName,obj.Size,obj.id);
end;
Код:
obj:=listbox1.Items.Objects[1];
т.е.
когда в integer или string не ругается но и нет значений (или Filename = FORM1)