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

Вниз

Как создавать новую структуру   Найти похожие ветки 

← →
McSimm   (2001-12-20 13:24) [4]

:)

Попробую ответить, хотя пошутить тоже хочется.

TWarrior = class // или class(TBaseCharacter)
public
Name: String;
Image: TBitmap;
LifeCount: Integer;
........
constructor Create;
.......
end;

constructor TWarrior.Create;
begin
inherited;
Name := GetNameFromNamesList; // например функция такая
LifeCount := 10;
Image := WarriorImage; // Какой-то TBitmap
....
end;

---

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

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

Наверх

Память: 0.43 MB
Время: 0.008 c