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:

[SirThornberry]

@fjeins: Wo hab ich das denn falsch gemacht? ich hab maximal einen typenlosen parameter vor einem typisierten angegeben und bei dem anderen beispiel hab ich nur einen parameter und somit auch keinen optionalen vor einem pflichparameter.

[jfheins]

Zitat:

Zitat von SirThornberry

@fjeins:

Muss ich mich angesprochen fühlen ? :mrgreen:

Ich wollte damit nur sagen, dass man halt erst die pflichtparameter angeben muss; damit mein Beitrag keinen Informationsgehalt von Null hat :mrgreen:

P.S. Die Tastatur nervt :cry:

[ichbins]

Zitat:

Zitat von 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:

du bist seeehr fies (stichpunkt deleteuser :D). ansonsten danke.

Zitat:

Zitat von jfheins

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

ich auch, in meine neue hab ich mal ein glas wasser reingekippt und bei der zugehörigen optischen funkmaus is der akkuadapter hin :wall:

[SirThornberry]

ups, hab ich mich im namen verschrieben gehabt.
Ahja, jetzt versteh ich den Zusatz mit "Das war bei SirT nicht". Das klang für mich so als ob ich das falsch gemacht hätte und nicht danach das ich es einfach nicht erwähnt hab... Hab das wohl weg gelassen da man es anhand der Fehlermeldung die der Compiler bringt leicht selbst herausfindet.