Присваивание записи блока памяти.

[Alex Cones]

Есть у меня некоторая запись, например

TC = Record
 S1 : String[512];
 S2 : String[512];
 S3 : String[512];
 S4 : String[512];

Эта запись - один из элементов массива. Чтобы заполнить весь массив мне требуется написать достаточно много однообразного кода:

С[0].S1 := '.......'; // Это все строки, которые находятся в константах.
C[0].S2 := '................';
C[0].S3 := '.......................';
C[0].S4 := '.........';
С[1].S1 := '.......';
C[1].S2 := '................';
C[1].S3 := '.......................';
C[1].S4 := '.........';
....

Можно ли составить код иначе, чтобы код подобного рода был не на 5 страниц, а хотя бы на страницу. В общем, можно ли назначить одной записи все поля в одну команду? Понимаю, что можно составить для этого процедуру или функцию. А есть ли что-нибудь встроенное?

[Serge_Bliznykov]

1) Коллега, а в чём компилируете?!
дело в том, что String не может быть 512:

type
 TC = Record
   S1 : String[512];

...
[Error] Unit1.pas(20): String literals may have at most 255 elements

это раз.

2) можно использовать такой подход:

Const
  C : array[0..1] of TC = ( (
     S1: 'Первая'; S2: 'Вторая';
     S3: 'Третья'; S4: 'Четвёртая'),
     (S1: 'второй элемент - s1'; S2: 'Второй - s2';
     S3: '...'; S4: '...'))
    ;
begin
  Button1.Caption := C[0].S1 +' | '+ C[1].S1;
...

3) вот как раз для таких целей идеально подходит чтение из внешнего файла (например, var f : file of TC; )

[Alex Cones]

1) 512 указал чисто для примера. Забыл про ограничение.
2) Хм... Посмотрим.
3) Дело в том, что это дефолтные настройки, которые активизируются, когда НЕТ файла конфигурации.

Создал функцию, как компромис между "ручной подачей" и 2.

Спасибо.

[Serge_Bliznykov]

3) Дело в том, что это дефолтные настройки, которые активизируются, когда НЕТ файла конфигурации.

а не проще засунуть типовой файл конфигурации в ресурс. И вытягивать его оттуда в случае отсутствия его в каталоге с программой.
Одни плюсы - и редактировать его легко. И код будет простейший (буквально несколько строчек). Да и потом, в случае необходимости можно будет этот файл легко заменить (хотя бы и самому пользователю, если есть желание)

[Alex Cones]

Хм.... подумаю над этим.

[GunSmoker]

Обычно делают так: просто читают из файла конфигурации. Если опции нет (как частный случай: вообще нет файла) - применяют значение по-умолчанию.

Как-то так:

S1 := ReadSetting('General', 'S1', 'значение по-умолчанию для S1');