Typenlosen Datentyp an Funktion übergeben => size = 0

[ichbins]

hi,

ich hab folgende Funktion geschrieben

Delphi-Quellcode:

function tfile.blockwrite(const buf; bytecount:integer):integer;
var
  written:integer;
begin
  showmessage('Towrite: '+inttostr(bytecount)+' Bufsize: '+inttostr(sizeof(buf)));
  system.BlockWrite(executor,buf,bytecount,written);
  showmessage('überstanden');
  result:=written;
end;

wenn ich jetzt ein
  byte als buf übergebe, müsste sizeof(buf) ja eigentlich 1 sein Im Message zeigt er mir aber 0 an. Das Message "überstanden" erscheint nicht, folglich muss der Fehler also im system.blockwrite auftreten. Is ja auch logisch, da BUF die Size of 0 hat...

Was mach ich da falsch?

[SirThornberry]

SizeOf wird nicht zur Laufzeit ausgeführt sondern vom Compiler ersetzt. Wenn du keinen Typ angibst kann sizeof(der Compiler) natürlich auch keine Größe ermitteln. Und zur Laufzeit das ganze ermitteln geht auch nicht da ein untypisierter Parameter nix weiter als ein Pointer ist.
Aus diesem Grund haben solche funktionen auch fast immer einen weiteren Parameter der die Größe angibt. Zum Beispiel bei TStream.Read und TStream.Write ist der erste Parameter typenlos und der zweite gibt die size an.

[ichbins]

aha, aber dann müsste ja das system.blockread funktionieren?

[SirThornberry]

du meinst bestimmt system.blockwrite
Wie rufst du denn deine funktion auf (mit dem Byte)? Welchen Wert übergibst du für bytecount?