Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2023, 22:26   #21
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Немножко некропоста.
Код:
procedure InitPanel(Panel: TPanel; IniFile: TIniFile; const Section: string);
begin
  with Panel, IniFile do
  begin
    Width := ReadInteger(Section, 'width', Width);
    Height := ReadInteger(Section, 'height', Height);
    Left := ReadInteger(Section, 'left', Left);
    Top := ReadInteger(Section, 'top', Top);
  end;
end;

// "копия" метода TIniFile.ReadSectionValues
procedure ReadSectionValues(IniFile: TIniFile; const Section: string; Strings:
  TStrings);
var
  KeyList: TStringList;
  I: Integer;
begin
  KeyList := TStringList.Create;
  try
    IniFile.ReadSection(Section, KeyList);
    Strings.BeginUpdate;
    try
      Strings.Clear;
      for I := 0 to KeyList.Count - 1 do
        Strings.Add(IniFile.ReadString(Section, KeyList[I], ''))
    finally
      Strings.EndUpdate;
    end;
  finally
    KeyList.Free;
  end;
end;

procedure TForm1.IniFileRead;
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'key.ini');

  try
    Form1.Width := IniFile.ReadInteger('form', 'width', form1.Width);
    Form1.Height := IniFile.ReadInteger('form', 'height', form1.Height);

    InitPanel(Panel1, IniFile, 'Panel');
    InitPanel(Panel3, IniFile, 'primary');
    InitPanel(Panel4, IniFile, 'secundary');
    InitPanel(Panel5, IniFile, 'tertiary');
    InitPanel(Panel6, IniFile, 'message');

    ReadSectionValues(IniFile, 'key_1', memo3.Lines);
    ReadSectionValues(IniFile, 'key_2', memo4.Lines);
    ReadSectionValues(IniFile, 'key_3', memo5.Lines);
  finally
    IniFile.Free;
  end;
end;
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 19.03.2023, 07:31   #22
leon2009sp
Форумчанин
 
Регистрация: 22.12.2015
Сообщений: 119
По умолчанию

Спасибо!!!
leon2009sp вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск