Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Задачка на PASCAL
Показать сообщение отдельно

Аватара для shurikan

Старожил


Сообщения: 240
Благодарности: 1

Профиль | Отправить PM | Цитировать


Crew
Цитата:
(учитывая стиль T??????, тем более)
Не факт, что это Delphi. Нормальное Поскакальное обьявление. Похоже на стандарт Delphi - да, но и только.

vasketsov
А это тягомотно. Можно проще, правда без функций-членов:
Crazy Wolf
(допустим, тебя попросили в данный момент создать матрицу 6x7)

Код: Выделить весь код
TMatrix = class
public:
 *V: Variant;
 *constructor Create(const Bounds: array of Integer);
end;

constructor TMatrix.Create(const Bounds: array of Integer);
begin
 *V := VarArrayCreate(Bounds, varInteger);
end;


Matrix: TMatrix;

begin
 *Matrix.Create([1,6,1,7]); {Первая пара нач. и конеч. индексы первого измерения,
 вторая пара - соотв для второго. Нумеруются от 1 до 6 и от 1 до 7}

 *Matrix.V[1,1] := 1; {и т.д.}
end.


[s]Исправлено: shurikan, 9:12 15-01-2003[/s]

Да! Это на Delphi



[s]Исправлено: shurikan, 9:17 15-01-2003[/s]

-------
UNIX, UNAS и др. Myself I'll like 'em


Отправлено: 09:09, 15-01-2003 | #9

Название темы: Задачка на PASCAL