Einer Funktion einen beliebigen Typ überliefern

[ichbins]

Ich mein so was:

Delphi-Quellcode:

function f(v:integer):integer;
begin
  [...]
end;

nur das v eben KEIN Integer sein soll, sondern ein beliebiger Typ. Ich hab das Forum durchsucht, aber nix gefunden.

Bei Blockread/write wird ja genau das gemacht, also muss es doch möglich sein :?: :gruebel:

[jfheins]

Variant :zwinker:

[ichbins]

Variant is doch auch bloß ein typ unter vielen? dazu noch eine Ausnahme...

Zitat:

Zitat von OH

procedure BlockWrite(var f: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);

da steht hinter buf garnix, auch kein Variant! Aber wenn ich das so compilieren will, kommt 'n fehler

[SirThornberry]

und wie lautet der Fehler? könnte dieser vielleicht am letzten parameter liegen (der in eckigen klammern) Denn normaler Weise geht es einfach keinen Typ anzugeben (siehe TStream.Write bzw. TStream.Read). Bei Typenlosen parametern musst du nur aufpassen das es als "var" deklariert ist damit es funktioniert ansonsten geht es nicht. Denn durch den Var wird letztendlich nur die Adresse übergeben (Referenz) was einem Pointer entspricht.
Also

Delphi-Quellcode:

procedure ZeigeMsg(var AMsg; ALen: Integer);

entspricht

Delphi-Quellcode:

procedure ZeigeMsg(AMsg: Pointer; ALen: Integer);

Und daher kann auch jeder Typ übergeben werden.

[Chewie]

Das mit dem untypisierten Parameter geht schon, aber die eckigen Klammern dürfen nicht in einem Funktionskopf stehen. ;)
Sie dienen nur in der OH der Kennzeichnung eines optionalen Parameters. Diese werden durch Standardwerte definiert.

[ichbins]

ne, ich will es ja gar nicht so compilieren wie es in der OH steht sondern so:

Delphi-Quellcode:

  function blockwrite(buf; bytecount:integer):integer;

zu den eckigen klammern: wie mach ich das dann?

wenn ich z.B.

Delphi-Quellcode:

  windows.

eingebe, kommt ja ne Liste von hunderttausend Befehlen, die alle in der Unit sind, und das geht mit selbstgemachten Units auch. Und da werden die eckigen klammern angegeben...

Zitat:

Zitat von Delphi-Fehlermeldung

Fehlender Parametertyp

[Edit] :oops: jetzt gehts :duck: wenn ich vor das buf; ein const oder ein var setze. [/Edit]

[SirThornberry]

das liegt wie bereits geschrieben daran das bei "var" und "const" nur die Speicheradressen übergeben werden was eben gleich zu setzen ist als ob der Typ ein Pointer wäre.

[ichbins]

aha, wieder was gelernt :coder2:

aaaaber, wie kann ich jetzt optionale Parameter angeben?

[SirThornberry]

optionale parameter gibt man so an

Delphi-Quellcode:

procedure Beispielprocedure(OptionalerParameter: Integer=StandardWert);

[jfheins]

Am einfachsten mit

Delphi-Quellcode:

procedure DeleteUser (const User: String = 'ichbins');

DeleteUser();
//ist das gleiche wie
DeleteUser ('ichbins');

:mrgreen:

Man muss optionale aber nach Pflichtparametern angeben <== Das war bei SirT nicht :mrgreen:

Edits: Scheiß Tastatur ich habe ... :evil: