Record zur Laufzeit auflösen ....

[gbl]

Ich habe hier ein spezielles Problem das sich wie folgt darstellt.

Ich etwickle gerade eine CGI Anwendung(en). Innerhalb dieser Anwendung gibt es viele Punkte an denen Daten in einem File gespeichert werden. Diese Schnittstelle stammt von einem Dritthersteller.

Ich möchte nun eine einzige PROCEDURE verwenden welche alle möglichen Daten übergeben bekommt und dann speichern kann.
Diese Daten werden in einem RECORD verpackt. Dieses RECORD sieht pro Anwendung anders aus.

Beispiel:

Delphi-Quellcode:

TRECORD1 = record
    value1: byte;
    value2: integer;
    value3: string;
  end;

TRECORD2 = record
    value1: string;
    value2: longint;
    value3: TDateTime;
  end;

erreichen möchte ich:

Delphi-Quellcode:

procedure SAVE(daten: DATENTYP?);
begin
  { Dieser Code kann den DATENTYP und dessen Struktur erkennen }
  // Send Parameter to API
end;

hoffe das somit alles klar ist.

[Bernhard Geyer]

Das geht so nicht.

Du könntest folgendes machen: Du definierst dir eine Basisklasse mit einer Load und Save-Methode. Für jeden speziellen Record-Typ leidest Du eine Klasse ab welche alle benötigten Info (evtl. als entsprechender Record-Typ) beinhaltet und die Methoden Load/Save überschreibt.

Jetzt kannst Du natürlich überall in deinem Programm wo du mit entsprechender Referenz auf die Basisklasse arbeitest einfach die Load/Save-Methode aufrufen und es wird immer die passende Load/Save-Methode verwendet.

[Mystic]

Kann man nicht einfach einen untypisierten Parameter verwenden? Also à la

procedure Save(var Data);

[gbl]

Zitat:

procedure Save(var Data);

klingt interessant.
Wie könnte ich nun feststellen von welchem Typ Data nun ist?

Ein Durchprobieren würde zu Not auch reichen; wie etwa

Delphi-Quellcode:

if Data=Type of TRECORD1 then ...
if Data=Type of TRECORD2 then ...

PS: ich verwende "absichtlich" keinerlei Klassen.

[dizzy]

Zitat von gbl:

PS: ich verwende "absichtlich" keinerlei Klassen.

Und aus genau diesem Grund kannst du nicht nachher herausfinden von welchem Typ dein Parameter ist . Für Records wird diese Info - im Gegensatz zu Klassen - nicht mitgeführt. Deine einzige Chance: Ein 2. Parameter über den du dir den Typ codierst. Nur schön ist das nicht wirklich...

[Mystic]

Wenn die Records unterschiedlich groß sind könntest du auf ihre Größe überprüfen.

[sniper_w]

Ohne Klassen geht das seehr einfach. Und wie, glaubst du, wurde Quacke 3 entwickelt ?

Also, jeder RECORD müsste IMMER so ANFANGS definiert sein:

Delphi-Quellcode:

type 
  basis = packed record
  recID:Cardinal;
  end;

  datatyp1 = packed record
  recID:Cardinal;
  ...
  end;

recID wird dann folgender massen abgefragt:

Delphi-Quellcode:

procedure procname(var mydata);
begin
  case basis(mydata).recID of
  ...
  end;
end;

Wenn recID ein string sein sollte dann bitte mit einer festen Grösse, zb recID:string[20];