Delphi JEDI MultiStringHolder 存多個 TStrings

需先安裝 JEDI VCL for Delphi
在 Form 中
放入 TMemo 顯示訊息
放入 Jv Non-Visual -> TJvMultiStringHolder
加入 Form1 OnCreate 事件
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Add config
  with JvMultiStringHolder1.MultipleStrings.Add do
  begin
    Name := 'config';
    with Strings do
    begin
      Values['Server'] := 'localhost';
      Values['User'] := 'Solnone';
      Values['Access'] := 'ReadOnly';
    end;
  end;
  // Add users
  with JvMultiStringHolder1.MultipleStrings.Add do
  begin
    Name := 'users';
    with Strings do
    begin
      Add('Solnone');
      Add('May');
      Add('John');
    end;
  end;

  // Show
  with JvMultiStringHolder1 do
  begin
    Memo1.Lines := ItemByName['config'].Strings;
    Memo1.Lines.Add('------');
    Memo1.Lines.AddStrings(ItemByName['users'].Strings);
  end;
end;

{ Memo1
Server=localhost
User=Solnone
Access=ReadOnly
------
Solnone
May
John
}