beliebiges procedure-parameter?

[SirThornberry]

@Neutral General: Es muss nicht immer var sein Durch die angabe von var wird intern die Adresse übergeben. Das heißt man kann auch gleich einen Pointer übergeben der dann logischer Weise nicht als var-Parameter übergeben werden muss.

@Snow: Ich glaub du hast einen Denkfehler bzw. schaust nicht weit genug. Im ersten Moment hast du natürlich Recht damit das Irgendwo jede Variable im Speicher liegt und man den Wert sichern kann in dem man das, was im speicher steht sichert.
Gegen wir aber mal von einem Record aus der einen Pointer beinhaltet. Dann sicherst du zwar den Pointer der irgendwo hinzeigt aber nicht die Daten die dahinter liegen. Stellst du zu einem späteren Zeitpunkt diesen Record wieder her (und somit auch den Pointer) liegen die Daten wo der Pointer hinzeigt wohlmöglich schon nicht mehr dort und schon war die Speicherung des Records mit Pointer wertlos.

Kurz und knapp. Es gibt keine Möglichkeit einfach alles so einfach zu speichern um dies später wieder her zustellen. Wenn dann musst du dir vorher feste Regeln definieren (zum Beispiel keine Pointer in Records) und dich strikt daran halten. Wenn du dies machst kannst du dir aber auch gleich eine Klasse schreiben wo jede Variable bzw. jedes Property einem festgelegt typ hat und unterproperties davon auch wieder einem festen Typ entsprechen so das du später alle eigenschaften rekursiv durchgehen kannst.
Sozusagen eine Baumstruktur wo jedes Item wieder beliebig viele Unteritems haben kann.

[snow]

Nja records könnte ich erst einmal drauf verzichten.

Ich stehe aber vor dem problem, das Sizeof() den typ benötigt und nicht die variable.

ich müsste also irgendwie herausfinden von welchem typ die variable X ist.

gibt es da eine function?

gruß snow

ja das problem von reocrds und arrays ist mir bekannt, ich suche da noch eine lösung.

[Neutral General]

Hi,

Du kannst wie gesagt deiner Procedure die größe der Variable mitgeben. Und auch Arrays und Records lassen sich eigentlich ohne Probleme speichern, FALLS (wie SirThornberry schon sagte) keine Pointertypen im Array/im Record sind. (D.h. auch keine Strings (ShortStrings gehn!)).

[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;