verschiedene Sets an Prozedur übergeben

[negaH]

Zitat:

ich soll für mein kleines RPG anstatt dem:
...
das hier machen?
....
Shocked Grübelnd...

Nö. Du hättest es so machen können wie ich es dir gezeigt habe WENN dein obiges Beispiel das du uns gegeben hast das ist was du benötigen tust.

Das was du uns jetzt zeigst ändert die Sache erheblich, allerdings ist eben meine Glaskugel zum Würfel eingeschmolzen worden, sorry das ich also nicht mehr hellsehen kann.


Mache für jedes deiner Sets eine überladene Funktion. Innerhalb dieser Funktion castest du hart deine übergebenen Sets in einen Integer und rufst eine interne Funktion auf die mit einem Integer als Param arbeutet, also so

Delphi-Quellcode:

procedure SaveSet(const Set: TMySet1); overload;
procedure SaveSet(const Set: TMySet2); overload;
procedure SaveSet(const Set: Integer); overload;

procedure SaveSet(const Set: TMySet1);
begin
  SaveSet(Integer(Set));
end;


procedure SaveSet(const Set: TMySet2);
begin
  SaveSet(Integer(Set));
end;


procedure SaveSet(const Set: Integer);
begin
  IniFile.WriteInteger(Set.....);
end;

Was daran ist nun so aufwendig, ich habe 30 Sekunden benötigt.


Gruß Hagen