beliebiges procedure-parameter?

[snow]

Ja da liegt ja genau der hacken.

Ich würde die größe einer variablen gerne automatisch erfassen lassen.

Das problem dabei ist natürlich , das wenn ich eine procedure(var test); habe, dass ich dann nicht weis von welchem typ test überhaupt ist. Es ist ja alles möglich.

daher suche ich eine function die mir diesen typ nennt.

Wenn ich also eine variable vom typ integer deklariere

var testint : integer; dann soll es eine function geben, die

ergebniss:=typefunction(testint); mir in diesem fall integer ausspuckt.

das benötige ich.

gruß snow

Edit:// ich hab dass hier mal schrieben. Es soll eigendlich nur die größe von lol herausfinden. Aber das programm behauptet dass sizeof(lol) = 0 ist.

auch wenn ich testint global deklariere.

Delphi-Quellcode:

procedure test(var lol);
begin
showmessage(inttostr(sizeof(lol)));

end;

procedure TForm1.Button1Click(Sender: TObject);
var testint : byte;
begin
testint:=233;
test(testint);
end;