ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как сохранить массив Record в INI файл
10 сообщений из 10, страница 1 из 1
Как сохранить массив Record в INI файл
    #39990765
NikolasGood
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikolasGood
Гость
Привет!
У меня есть разнотиповый массив ArrVoices типа TArrVoices

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
type
  TArrVoices = record
    Id: Integer;
    Name: string;       
    Visible: Boolean;  
  end;

var
ArrVoices: array of TArrVoices;


Как мне его сохранить в файл.ini чтобы потом подгрузить с него же?

Модератор: Как мне оформить свое сообщение?
...
Рейтинг: 0 / 0
19.08.2020, 13:43
| Ответить | Цитировать | Написать  
Как сохранить массив Record в INI файл
    #39990773
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Это сложно, надо код писать. Циклом проходишь по массиву и сохраняешь каждую запись. Как
её сериализовать - выбирай сам. Можно по значениям, можно по секциям.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
19.08.2020, 13:48
| Ответить | Цитировать | Написать  
Как сохранить массив Record в INI файл
    #39990778
iStrannik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iStrannik
Гость
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Запись
        Ini.WriteInteger('Common', 'ArrVoiceLength', Length(ArrVoices));

        for I := 0 to High(ArrVoices) do
         begin
           Ini.WriteInteger('ArrVoice' + I, 'Id', ArrVoices[I].Id);
           Ini.WriteString('ArrVoice' + I, 'Name', ArrVoices[I].Name);
           Ini.WriteBool('ArrVoice' + I, 'Visible', ArrVoices[I].Visible);
         end;
Чтение
        Len := Ini.ReadInteger('Common', 'ArrVoiceLength', 0);

        SetLength(ArrVoices, Len);
        for I := 0 to High(ArrVoices) do
         begin
           ArrVoices[I].Id := Ini.ReadInteger('ArrVoice' + I, 'Id', 0);
           ArrVoices[I].Name := Ini.ReadString('ArrVoice' + I, 'Name', '');
           ArrVoices[I].Visible := Ini.ReadBool('ArrVoice' + I, 'Visible', false);
         end;
...
Рейтинг: 0 / 0
19.08.2020, 13:53
| Ответить | Цитировать | Написать  
Как сохранить массив Record в INI файл
    #39990780
NikolasGood
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikolasGood
Гость
iStrannik
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Запись
        Ini.WriteInteger('Common', 'ArrVoiceLength', Length(ArrVoices));

        for I := 0 to High(ArrVoices) do
         begin
           Ini.WriteInteger('ArrVoice' + I, 'Id', ArrVoices[I].Id);
           Ini.WriteString('ArrVoice' + I, 'Name', ArrVoices[I].Name);
           Ini.WriteBool('ArrVoice' + I, 'Visible', ArrVoices[I].Visible);
         end;
Чтение
        Len := Ini.ReadInteger('Common', 'ArrVoiceLength', 0);

        SetLength(ArrVoices, Len);
        for I := 0 to High(ArrVoices) do
         begin
           ArrVoices[I].Id := Ini.ReadInteger('ArrVoice' + I, 'Id', 0);
           ArrVoices[I].Name := Ini.ReadString('ArrVoice' + I, 'Name', '');
           ArrVoices[I].Visible := Ini.ReadBool('ArrVoice' + I, 'Visible', false);
         end;



Спасибо!

А что High(ArrVoices) одно и тоже, что Length(ArrVoices) ?
...
Рейтинг: 0 / 0
19.08.2020, 13:56
| Ответить | Цитировать | Написать  
Как сохранить массив Record в INI файл
    #39990784
iStrannik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iStrannik
Гость
Length - длина массива(количество элементов)
High - индекс последнего элемента, так как массив динамический значит
нумерация с нуля начинается, соответственно Length(ArrVoices) - 1 = High(ArrVoices)
...
Рейтинг: 0 / 0
19.08.2020, 14:00
| Ответить | Цитировать | Написать  
Как сохранить массив Record в INI файл
    #39990789
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
NikolasGood
А что High(ArrVoices) одно и тоже, что Length(ArrVoices) ?

Нет, не одно и то же
...
Рейтинг: 0 / 0
19.08.2020, 14:06
| Ответить | Цитировать | Написать  
Как сохранить массив Record в INI файл
    #39990790
NikolasGood
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikolasGood
Гость
iStrannik
Length - длина массива(количество элементов)
High - индекс последнего элемента, так как массив динамический значит
нумерация с нуля начинается, соответственно Length(ArrVoices) - 1 = High(ArrVoices)

Спасибо!
...
Рейтинг: 0 / 0
19.08.2020, 14:06
| Ответить | Цитировать | Написать  
Как сохранить массив Record в INI файл
    #39990793
NikolasGood
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikolasGood
Гость
DimaBr
NikolasGood
А что High(ArrVoices) одно и тоже, что Length(ArrVoices) ?

Нет, не одно и то же

Это потому что Length(ArrVoices) по сути ведёт отсчёт кол-ва строк?
...
Рейтинг: 0 / 0
19.08.2020, 14:12
| Ответить | Цитировать | Написать  
Как сохранить массив Record в INI файл
    #39990823
iStrannik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iStrannik
Гость
Вам бы про массивы почитать.

Length возвращает длину массива (количество элементов)

Если массив объявлен как у Вас
ArrVoices: array of TArrVoices;
то это динамический массив(его длина может изменяться во время выполнения программы)
у таких массивов индекс первого элемента ВСЕГДА = 0, а индекс последнего Length() - 1
Есть еще статические массивы их длина задается заранее при объявлении и не изменяется,
Пример:
X: array[0..9] of byte;
У таких массивов индекс первого элемента может быть >= 0

Длина такого массива = 10, а индекс последнего элемента = 9
Если вы хотите определить длину массива то используете функцию
Length(X) = 10
Если хотите определить индекс последнего элемента массива то используете функцию
High(X) = 9
Если хотите определить индекс первого элемента массива то используете функцию
Low(X) = 0

Как Вам заметили Выше если статический массив объявлен например так
X: array[6..9] of byte;
тогда
Length(X) = 4
High(X) = 9
Low(X) = 6
...
Рейтинг: 0 / 0
19.08.2020, 15:07
| Ответить | Цитировать | Написать  
Как сохранить массив Record в INI файл
    #39990911
NikolasGood
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikolasGood
Гость
iStrannik
Вам бы про массивы почитать.

Length возвращает длину массива (количество элементов)

Если массив объявлен как у Вас
ArrVoices: array of TArrVoices;
то это динамический массив(его длина может изменяться во время выполнения программы)
у таких массивов индекс первого элемента ВСЕГДА = 0, а индекс последнего Length() - 1
Есть еще статические массивы их длина задается заранее при объявлении и не изменяется,
Пример:
X: array[0..9] of byte;
У таких массивов индекс первого элемента может быть >= 0

Длина такого массива = 10, а индекс последнего элемента = 9
Если вы хотите определить длину массива то используете функцию
Length(X) = 10
Если хотите определить индекс последнего элемента массива то используете функцию
High(X) = 9
Если хотите определить индекс первого элемента массива то используете функцию
Low(X) = 0

Как Вам заметили Выше если статический массив объявлен например так
X: array[6..9] of byte;
тогда
Length(X) = 4
High(X) = 9
Low(X) = 6

Спасибо, всё ясно, понятно, почти всё знал, кроме длинны массива Length.
...
Рейтинг: 0 / 0
19.08.2020, 18:07
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как сохранить массив Record в INI файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39990773&tid=2038062]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 166ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 229ms
total:  498ms
созд. / загр.: 498ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]