Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TPoint [D6, WinXP]


webpauk ©   (2004-09-22 14:27:00) 

Подскажите, pls, как правильно задать массив:

var
  A: array[1..2] of TPoint;
begin
  A:=([Point(L, T), Point(L, T)]);
- ошибка
end;

Писать A[1].X:=0; A[1].Y:=0и т.д. - неклассно


Amoeba   (2004-09-22 14:47:00) [1]


> webpauk   (22.09.04 14:44) [6]

Заполняй вручную, то бишь "неклассно".


Digitman   (2004-09-22 14:46:00) [2]


> webpauk   (22.09.04 14:44) [6]


ты чего вопросы-то тычешь ?

тебе нужно ДИНАМИЧЕСКИ инициализировать свой массив или СТАТИЧЕСКИ ?

статически - я тебе сказал как ..
динамически - см. [2], [4]


webpauk   (2004-09-22 14:44:00) [3]

>Digitman
begin
???
end;


Reindeer Moss Eater   (2004-09-22 14:41:00) [4]

Перед MoveЖ
p:=@a[1];


Reindeer Moss Eater   (2004-09-22 14:40:00) [5]

var
 A: array[1..2] of TPoint;
 P:Pointer;
begin
Move(#1#0#0#0#2#0#0#0#3#0#0#0#4#0#0#0,p^,SizeOf(a));
end;


Digitman   (2004-09-22 14:38:00) [6]


> неклассно


а так ?

var  A: array[1..2] of TPoint = ((X:0; Y:0), (X:1; Y:1));

"классно" ? или "потрясно" ? "или "ваще атпад" ? или как там еще обозвать это воистину по-тинейджерски ?


DiamondShark   (2004-09-22 14:37:00) [7]

A[1] := Point(0, 0);
A[2] := Point(0, 0);


webpauk   (2004-09-22 14:34:00) [8]

пишу на WinApi, uses Windows, Messages


Наверх

Титульная страница Поиск, карта сайта Написать письмо