Сохранить порядок колонок в DBGrid, после того как пользовать их перестроил

Delphi , Компоненты и Классы , TDBGrid

procedure TMainForm.NewIni(const NomeIni: string);
var F: System.Text;
    i: Byte;
begin
  System.Assign(F, NomeIni);
  System.ReWrite(F);
  System.WriteLn(F, '[Campi_Ordine]');
  for i:=1 to Table1.FieldCount do
    System.WriteLn(F, 'Campo',i,'=',Table1.Fields[i-1].FieldName);
  System.WriteLn(F, '');
  System.WriteLn(F, '[Campi_Size]');
  for i:=1 to Table1.FieldCount do
    System.WriteLn(F, 'Campo',i,'=',Table1.Fields[i-1].DisplayWidth);
  System.Close(F);
end;

procedure TMainForm.SaveIni(const FN: String);
var Ini: TIniFile;
    i: Integer;
begin
  NewIni(FN);
  Ini := TIniFile.Create(FN);
  with Ini do
  begin
    for i:=1 to Table1.FieldCount do
    begin
      S:= Table1.Fields[i-1].FieldName;
      WriteString('Campi_Ordine', 'Campo'+IntToStr(i),
        Table1.Fields[i-1].FieldName);
      WriteInteger('Campi_Size', 'Campo'+IntToStr(i),
        Table1.Fields[i-1].DisplayWidth);
    end;
  end;
  Ini.Free;
end;

procedure TMainForm.LoadIni(const FN: String);
var Ini: TIniFile;
    i: Integer;
    j: Longint;
    S: String;

    function MyReadInteger(const Section, Ident: string): Longint;
    begin
      result := Ini.ReadInteger(Section, Ident, -1);
      if result=-1 then
        raise Exception.Create('Errore nel file di configurazione.');
    end;

    function MyReadString(const Section, Ident: string): String;
    begin
      result := Ini.ReadString(Section, Ident, '');
      if result='' then
        raise Exception.Create('Errore nel file di configurazione.');
    end;

begin
  Ini := TIniFile.Create(FN);
  try
    with Ini do
    begin
      for i:=1 to Table1.FieldCount do
      begin
        S:= MyReadString('Campi_Ordine', 'Campo'+IntToStr(i));
        j:= MyReadInteger('Campi_Size', 'Campo'+IntToStr(i));
        Table1.FieldByName(S).Index := i-1;
        Table1.FieldByName(S).DisplayWidth := j;
      end;
    end;
  finally
    Ini.Free;
  end;
end; 

Переданный код - это набор процедур на языке Delphi для сохранения и загрузки порядка столбцов в DBGrid, а также их размеров из файла INI.

Рассмотрим каждую процедуру:

1. NewIni(const NomeIni: string): Эта процедура создает новый файл INI и записывает имена полей и их ширины из DBGrid в него. Она перебирает поля грида и записывает имя каждого поля и его ширина в файл INI.
2. SaveIni(const FN: String): Эта процедура сохраняет текущее состояние DBGrid, включая порядок столбцов и их размеры, в файл INI. Она создает новый объект TIniFile, затем перебирает поля грида, записывая имя каждого поля и его ширина в файл INI.
3. LoadIni(const FN: String): Эта процедура загружает состояние DBGrid из файла INI. Она создает новый объект TIniFile, читает имена полей и их размеры из файла INI, а затем устанавливает свойства Index и DisplayWidth для каждого поля в гриде.

Чтобы сохранить порядок столбцов в DBGrid после того, как пользователь их переставил, вы бы использовали процедуру SaveIni. Чтобы загрузить сохраненное состояние при запуске программы, вы бы использовали процедуру LoadIni.

Вот пример использования этих процедур:

procedure TForm1.FormCreate(Sender: TObject);
begin
  LoadIni('путь_к_вашему_файлу_INI.ini');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveIni('путь_к_вашему_файлу_INI.ini');
end;

В этом примере процедура LoadIni вызывается при создании формы для загрузки сохраненного состояния DBGrid. Процедура SaveIni вызывается при нажатии кнопки для сохранения текущего состояния грида.

Помните, что нужно заменить 'путь_к_вашему_файлу_INI.ini' на реальный путь и имя вашего файла INI.

Сохранить порядок колонок в DBGrid после перестройки пользователем можно с помощью создания конфигурационного файла и записи порядка колонок и ширины полей в нем.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDBGrid ::