Einzelnen Beitrag anzeigen

Benutzerbild von Net7
Net7

Registriert seit: 22. Jun 2004
Ort: Lauenburg
161 Beiträge
 
Delphi 7 Professional
 
#7

Re: Wie einer Function einen 'Datentyp' übergeben??

  Alt 22. Okt 2005, 01:12
Eine elegante Lösung des Problems.

Allerdings eben mit Pointern.




Delphi-Quellcode:

Function Konvertiere_Datenpaket(var Daten:Pointer;var ExportDaten;Datensize:int64):boolean;
begin
  if (Daten=nil)or(Sizeof(Daten^)<0) then exit;
  Move(Daten^,ExportDaten, Datensize); //konvertiert untypirisierte Typen in Typerisierte Typen
end;
Exportdaten ist Typenlos und ich kann es einen definierten Typen zuweisen.

Und funktioniert bestens.
Marko
So`ne Atombombe kann einem den ganzen Tag verderben!
Eine eigene DLL in C++ geschrieben wird meist ein Sklave für mein Delphi/Pascal.
  Mit Zitat antworten Zitat