Einer Routine einen beliebigen Record übergeben

[Nightshade]

Ich hab mir die Sache mit dem RTTI und so mal angeschaut...

Benutz es, oder leite was draus ab, oder verbesser es, oder lass es

Bei mir ist auf jeden Fall das hier herausgekommen :


TSettings so deklarieren wie man es braucht :

Delphi-Quellcode:

type TSettings = class(TComponent)
   private
    Ff: byte;
    Fg: char;
    Fb2: double;
    Fa1: integer;
    FPfad: string;
    Fe: word;
    Fd: string;
    Fh: boolean;
  protected
  public
  published
    property Pfad : string read FPfad write FPfad;
    property a1 : integer read Fa1 write Fa1;
    property b2 : double read Fb2 write Fb2;
    property d : string read Fd write Fd;
    property e : word read Fe write Fe;
    property f : byte read Ff write Ff;
    property g : char read Fg write Fg;
    property h : boolean read Fh write Fh;
end;

und dann speichern oder laden...

Delphi-Quellcode:

uses SettingsVorlage;

procedure TForm1.BitBtn1Click(Sender: TObject);
var t : TSettingsVorlage;
begin
  t := TSettingsVorlage.Create(self);
  t.Settings.d := 'Hallo';
  t.Settings.Pfad := 'Welt';
  t.SaveToFile(Pfad+'Testfile.dat');
//   t.SaveToINIFile(Pfad+'Testfile.ini');
//   t.SaveToRegistry(HKEY_LOCAL_MACHINE ,'Software\YDB-Soft\Testfile');
  t.free;
end;