gleiche anweisungen für zwei klassen - aber wie?

[s.h.a.r.k]

Kombiniert mit dem was Luckie gesagt hatte:

Delphi-Quellcode:

procedure LoadFromIni(AFile: TCustomIniFile);
begin
  x := AFile.ReadString({...});
  // etc.
end;

// Irgendwo...
if MemoryAktiv then
  LoadFromIni(FMemoryIni)
else
  LoadFromIni(FIni);

PS: Du solltest dir auch angewöhnen deinen Code sinnvoll einzurücken. Das was du da gepostet hast ist ja echt grauenvoll, vor allem wenn das noch ein anderer lesen soll

Delphi-Quellcode:

if MemoryAktiv then
begin
  with fMemIni do
  begin
    x := readstring (bla...);
  end;
end 
else begin // also nix memory
  with fIni do
  begin
   // ... gleiche anweisungen wie oben, eben nur für fIni.
  end;
end;