Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Массивы, обращение

Layner © (2007-11-13 10:12:00)
Здравствуйте! Что то с массивами пробел, не могу разобраться в одной строке, помогите! Есть:
type TDisk = record Letter : byte; TypeDisk : byte; end; TDiskArray = array of TDisk; ... var Drive: array of TDiskArray; ... SetLength(Drive,2); //например 2 ПК SetLength(Drive[0],255); //установим предел в 255 дисков для 1 ПК SetLength(Drive[1],255); //установим предел в 255 дисков для 2 ПК
Вопрос, Как записать значения в TDisk для каждого диска, каждого ПК?
Например для 1го диска 1го ПК?

Slym (2007-11-13 12:49:00) [1]
Anatoly Podgoretsky © (13.11.07 12:09) [10]
Все разделы свести в MountPointы на Ц и не париться

Anatoly Podgoretsky (2007-11-13 12:09:00) [2]
> Palladin (13.11.2007 11:43:08) [8]

Буквы это ахронизм от ДОС, по сути это уже короткие имена, наряду с длинными, да и буквы дискам не нужны.

Anatoly Podgoretsky (2007-11-13 12:08:00) [3]
> Slym (13.11.2007 11:40:07) [7]

В алфавите MSDN

Palladin (2007-11-13 11:43:00) [4]
я представляю, что было бы если бы диски именовались иероглифами :)
даже страшно себе такое представить

Slym (2007-11-13 11:40:00) [5]
Anatoly Podgoretsky © (13.11.07 11:35) [6]
Дисков с буквами может быть только 32
это в каком алфавите? если ф рускам то их там +1...

Anatoly Podgoretsky (2007-11-13 11:35:00) [6]
Дисков с буквами может быть только 32.
По обращению похоже что тебе нужен двухмерный массив, а в этом случае требуется еще и поле ComputerName

Palladin (2007-11-13 10:43:00) [7]
byte('z')-byte('a') +1

Layner (2007-11-13 10:42:00) [8]
Понял :)

Slym (2007-11-13 10:31:00) [9]
Layner © (13.11.07 10:12)
предел в 255 дисков
диска Я:\ не бывает :)
бывают только a-z, т.е. byte('z')-byte('a') штук

Layner (2007-11-13 10:20:00) [10]
MBo © (13.11.07 10:16)
Спасибо! Я думал что так пишется если бы я объявил массив так
TDiskArray = array of array of TDisk;
тут то проблем нет с обращением, но в данном случае думал как то по другому :) Ок, записал на корку :)

MBo (2007-11-13 10:16:00) [11]
Drive[0, 0].Letter := 1;

Наверх

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