Как реализовать задуманное

[Shouldercannon]

Доброго времени суток!
Есть ini-файл со следующим содержимым:

PHP код:

[Pos0]
Nomer=6835
Priem=9:00
Vydacha=-
[Pos1]
Nomer=3891
Priem=9:00
Vydacha=11:00
[Pos2]
Nomer=0258
Priem=9:00
Vydacha=12:00 


Эти данные нужно загрузить, отредактировать, сохранить.

Реализация:
Создать динамически GroupBox равное количеству секций. В каждом GroupBox создать динамически три Edit, в которые будут загружены данные из полей секций (Nomer, Priem, Vydacha). Далее редактирую данные в Edit и сохраняю обратно всё в ini.

var
  FormMain: TFormMain;
  GBArr: Array of TGroupBox;

implementation

{$R *.dfm}

procedure TFormMain.Button1Click(Sender: TObject);
begin
  LoadStaff('test');
end;

procedure TFormMain.LoadStaff(FName: String);
var
  IniFile: TIniFile;
  SL: TStringList;
  I: Integer;
  MyLabel: TLabel;
  MyEdit: TEdit;
begin
  try
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'staffs\' + FName + '.ini');
    SL := TStringList.Create;
    try
      IniFile.ReadSections(SL);
      SetLength(GBArr, SL.Count);
      for I := 0 to SL.Count - 1 do
      begin
        // GroupBox
        GBArr[I] := TGroupBox.Create(ScrollBox1);
        GBArr[I].Parent := ScrollBox1;
        GBArr[I].Height := 58;
        GBArr[I].Width := 408;
        GBArr[I].Left := 4;
        GBArr[I].Top := 4 + ((I) * 62);
        GBArr[I].Caption := SL.Strings[I];
        // Labels
        MyLabel := TLabel.Create(GBArr[I]);
        MyLabel.Parent := GBArr[I];
        MyLabel.Left := 8;
        MyLabel.Top := 16;
        MyLabel.Caption := 'Номер';

        MyLabel := TLabel.Create(GBArr[I]);
        MyLabel.Parent := GBArr[I];
        MyLabel.Left := 142;
        MyLabel.Top := 16;
        MyLabel.Caption := 'Приём';

        MyLabel := TLabel.Create(GBArr[I]);
        MyLabel.Parent := GBArr[I];
        MyLabel.Left := 276;
        MyLabel.Top := 16;
        MyLabel.Caption := 'Выдача';
        // Edits
        MyEdit := TEdit.Create(GBArr[I]);
        MyEdit.Parent := GBArr[I];
        MyEdit.Width := 130;
        MyEdit.Left := 4;
        MyEdit.Top := 33;
        MyEdit.Text := IniFile.ReadString(SL.Strings[I], 'Nomer', '');

        MyEdit := TEdit.Create(GBArr[I]);
        MyEdit.Parent := GBArr[I];
        MyEdit.Width := 130;
        MyEdit.Left := 138;
        MyEdit.Top := 33;
        MyEdit.Text := IniFile.ReadString(SL.Strings[I], 'Priem', '');

        MyEdit := TEdit.Create(GBArr[I]);
        MyEdit.Parent := GBArr[I];
        MyEdit.Width := 130;
        MyEdit.Left := 272;
        MyEdit.Top := 33;
        MyEdit.Text := IniFile.ReadString(SL.Strings[I], 'Vydacha', '');
      end;
    except
    end;
  finally
    FreeAndNil(IniFile);
    FreeAndNil(SL);
  end;
end;

end.

Как теперь загруженное дело сохранить обратно и как удалить всё, что создал динамически?

[min@y™]

За такую реализацию надо руки отрывать и в засовывать их писателю в анальное очко. Немедленно выбрось этот говнокод, а потом бери TTreeView и делай по-человечески.

[northener]

Сообщение от Shouldercannon

Есть ini-файл со следующим содержимым:

Он вам с неба упал?
Или этот файл был создан некоей программой, которая реально работает с чем-то реальным?

[v258]

Методы TIniFile:

Чтение из файла - ReadString, ReadInteger, ReadBool
Запись в файл - WriteString, WriteInteger, WriteBool
Сохранение файла - UpdateFile

[Shouldercannon]

Сообщение от min@y™

За такую реализацию надо руки отрывать и в засовывать их писателю в анальное очко. Немедленно выбрось этот говнокод, а потом бери TTreeView и делай по-человечески.

Как грубо. Хотя бы на пример какой направили

Сообщение от northener

Он вам с неба упал?
Или этот файл был создан некоей программой, которая реально работает с чем-то реальным?

Задуманная программа и должна создавать такой ini-файл, а другая программа, которая уже есть получает из него данные и выводит в таблицу, созданную в RichView.

[min@y™]

Сообщение от Shouldercannon

Задуманная программа и должна создавать такой ini-файл, а другая программа, которая уже есть получает из него данные и выводит в таблицу, созданную в RichView.

Так это меняет дело. Достаточно и TDrawGrid.
Только не говори, что программа, принимающая сформированный ini-файл, тоже твоя.

[Shouldercannon]

Сообщение от min@y™

Так это меняет дело. Достаточно и TDrawGrid.
Только не говори, что программа, принимающая сформированный ini-файл, тоже твоя.

Моя. Там нет такой дичи в коде

[min@y™]

Сообщение от Shouldercannon

Моя. Там нет такой дичи в коде

Тогда в двух программах и смысла нет.
А данные такого вида очень красиво и удобно хранить в XML. Куча моих боевых проектов юзают именно XML.

[Shouldercannon]

Всё не так просто. К одному ПК подключены два монитора. Первый монитор рабочий, на втором мониторе чисто таблица и больше там ничего не делают.
Чел в конфигураторе правит данные ini-файла, а таблица на втором мониторе через определённый промежуток времени берёт данные из того ini-файла. Потому и надобность в двух прогах.

[min@y™]

Бть, ну и глупость! Какого хрена не сделать отдельное окно для правки данных в таблице и не расположить его (окно) в каком хочешь мониторе? Ну что за бред?!