2 ini-Dateien zusammenfassen (im Speicher)

[Jonas Shinaniganz]

Wenn du nach s.h.a.r.k's Tip nicht genau weißt wie du loslegen sollst könntest:

Baue eine Eigene Klasse:

Delphi-Quellcode:

  
type
TIniFiles = class(TComponent)
  private
    Inis : TObjectList;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy;

    procedure Add(Inifile : TIniFile);
    function ReadString(const Section, Ident, Default: string): string;
  end;

implementation


{ TIniFiles }


procedure TIniFiles.Add(Inifile: TIniFile);
begin
  Inis.Add(Inifile);
end;


constructor TIniFiles.Create(AOwner: TComponent);
begin
  inherited;
  Inis := TObjectList.Create;
  Inis.OwnsObjects := True;
end;


destructor TIniFiles.Destroy;
begin
  Inis.Free;
end;


function TIniFiles.ReadString(const Section, Ident, Default: string): string;
var
  I: Integer;
begin
  Result := '';
  for I := 0 to Inis.Count do
  begin
    Result := (Inis.Items[I] as TIniFile).ReadString(Section,Ident,Default);
    if Result <> '' then
      Exit;
  end;
end;

Dann instanzierst du die Klasse und fügst alle Inifiles die du hast hinzu. Dann kannst du
auf die Instanz zugreifen und "ReadString" aufrufen um einen String auszulesen, alle anderen Methoden müsstest du dir dann nach dem obigen Schema selbst coden...