Помощь - Поиск - Пользователи - Календарь
Полная версия: Струтура, реализация объекта, м/с
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Ассемблер
amega
Добрый день!
Помогите написать обект для реализации мультисспика. Со струтурами никогда еще не работал
про стуктуру и ооп читал на этом сайте, коешто понял, а с реализацией неочень.

Описал структуру для объекта

;модуль с основными типами элементов списка

nil = 0ffffh ;константа отсуствия ссылки

Rayon STRUC Global Method {
init : dword = Rayon_construct ;процедура-конструктор
deinit : dword = Rayon_deinit ;процедура-деконструктор
insert : dword = Rayon_insert ;процедура ввода полей (имя района, имя мера)
print : dword = Rayon_print ;процедура вывода на екран
}

RayonName db 20 dup (0) ; Имя района
NameMer db 20 dup (0) ; Имя мера

Next dw nil ;указатель на сл.
ENDS


теперь нужно написать процедуру конструктора объекта, которая при создание структуры видиляла в дин памити место для объекта, и инициализацию проводила(хотя что инициализировать я не знаю), и деконтсрутора, которая будет удалять объект. Процедура Инсерт будет осущетвлять заполнение полей, а принт их выводить.


amega
мм а как создать экземпляр структуры?
volvo
Цитата
мм а как создать экземпляр структуры?
Вот так:
objRayon Rayon {}


Вообще, если у тебя установлен Борланд С (тот, который под ДОС, версия 3.1) - то там в папке \BORLANDC\EXAMPLES\TASM\QUEUE есть пример работы с ООП в Ассемблере. Если нету - я заархивировал тебе его содержимое:
Нажмите для просмотра прикрепленного файла
amega
Спасибо, посмотрел ток ниче не понял с реализацией mega_chok.gif
вот каркас

.286
.model large,stdcall
.stack 200h
.data

;Исоходный масив указателей
;Ечейка масива содержит адрес объекта в памити
ArrOfTObject dw 10 dup (?)

;подключаем модуль с основными типами элемента списка
;INCLUDE obj.aso

Menu db '1-Create new object',13,10
db '2-Print object',13,10
db '3-Delete object',13,10
db '4-Exit',13,10,'$'

Writeln dw 13,10,'$'
.code
;подключаем модуль с основными процедурами и макросами
INCLUDE Proc.aso

st_:
mov ax,@data
mov ds,ax

GetNewComand:
showMessage menu

mov ah,1
int 21h
sub al,'0'

cmp al,1
je CreateNewObject
cmp al,2
je PrintObject
cmp al,3
je DeleteObject
cmp al,4
je Exit
jmp Exit

CreateNewObject:
;создание нового обекта
;узаказатель на объкт должен хранится в ArrOfTObject[0]

jmp GetNewComand
PrintObject:
;вывод объкта на кран, указатель на объкт хранится нудевым елементом массива

jmp GetNewComand
DeleteObject:
;удаление объкта, указатель на объкт хранится нудевым елементом массива

jmp GetNewComand

Exit:
mov ah,4ch
int 21h
end st_



модуль модуль процедур и макросов
;модуль процедур и макросов

ShowMessage Macro Mess
mov ah,9
mov dx,offset Mess
int 21h
endm


Как мне создать обект чтоб указатель на объкт был нулевой ячейки массива ArrOfTObject?
amega
из више указаного укрока я так поял нужно

Rayon_construct PROC FAR
USES ds
; -- Выделение объекта
;; << выполнение выделения >>
ret
ENDP


процедура будет использоватть свой дс, и в этой процедуре нужно виделить динамическую памить, потом адрес этой динамической памити нужно записать нулевым элементом масива, я правильно понял?
amega
ypriamii.gif ypriamii.gif ypriamii.gif wacko.gif
volvo
Цитата
в этой процедуре нужно виделить динамическую памить, потом адрес этой динамической памити нужно записать нулевым элементом масива, я правильно понял?
Я вот вообще не понимаю, при чем тут какой-то массив, если ты должен был
Цитата
написать обект для реализации мультисспика.
Где-то там написано, что тебе надо сделать массив чего-то? Нет. Как организуется мульти-список не знаешь? Посмотри на форуме, была реализация на Паскале. Никакого массива, предыдущий объект хранит указатель на следующий, где тут массив?
amega
помогите хотябы с реализацией объкта, тоесть его инициализацию , создание и вывод

зы: списки могут еще быть реализованы на базе массивов указателей
структура:
Нажмите для просмотра прикрепленного файла
зы2 пример проекта кинул в личку реализующий такую структуру(мой курсач)
amega
ни зделал я объект, придется ити на ужасный екзамен cray.gif
AndNot
Сейчас выложу, с пояснениями smile.gif
volvo
Цитата
Сейчас выложу, с пояснениями
Не надо за кого-то делать задачу полностью... Автор не соизволил задание дать как положено, на Дельфи сделал какой-то бред (ну ПРОЩЕ это все делается), а ты ему хочешь "автомат" заработать? Пускай идет на экзамен!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.