VPF::Помогите перевести код с С на Object Pascal

otRock

Дата 22.4.2010, 03:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 23.9.2009

Репутация: нет
Всего: нет

Код


typedef struct
{
        char *vendor;
        char *model;
        char *revision;
} scsiDevice;
scsiDevice scsiHDs[] =
{
        { "IBM", "DDRS-34560", "S97B" },
        { "QUANTUM", "FIREBALL ST4.3S", "0F0C" },
        { "SEAGATE", "ST32155N", "0532" }
};

Rrader

Дата 22.4.2010, 04:25 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


type
  scsiDevice = record
    vendor: PAnsiChar;
    model: PAnsiChar;
    revision: PAnsiChar;
  end;

const
  scsiHDs: array[0..2] of scsiDevice = (
    (vendor: 'IBM'; model: 'DDRS-34560'; revision: 'S97B'),
    (vendor: 'QUANTUM'; model: 'FIREBALL ST4.3S'; revision: '0F0C'),
    (vendor: 'SEAGATE'; model: 'ST32155N'; revision: '0532')
  );

--------------------

Let's do this quickly!
Rest in peace, Vit!

otRock

Дата 22.4.2010, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 23.9.2009

Репутация: нет
Всего: нет

Спасибо!

Это сообщение отредактировал(а) otRock - 22.4.2010, 16:22

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »