[delphi] Untyped const vraagje

[_Thanatos_]

Ik probeer weer eens wat uit de .NET wereld in Delphi (7) na te bootsen, niet omdat het zoooo handig is, maar puur voor de fun en om te kijken of het überhaupt kan. Ik wilde een set methoden maken in een TLogFile class die er zo uit zien:

Delphi:

function Writeln(const S: string): string; overload;
function Writeln(const S: string; Args: array of const): string; overload;
function Writeln(const S: string; const Arg1): string; overload;
function Writeln(const S: string; const Arg1, Arg2): string; overload;

In ieder van die methodes (behalve de eerste) wilde ik een call naar de Format functie doen om de string S geformatteerd naar de logfile te schrijven. Let op de laatste twee methoden: die parameters hebben geen type en dat is an sich niet fout (ff voor de mensen die het euvel gevonden denken te hebben).

Het probleem:
De eerste twee zijn uiteraard prima gelukt, maar de andere twee krijg ik niet aan de praat. Die Arg1 en Arg2 kan ik niet aan een array of const meegeven, omdat de compiler dan onmiddelijk zegt Bad argument type in variable type array constructor. Prima, kan ik inkomen, want array of const is iets varianterigs. Maar helaas, Arg1 en Arg2 declareren als Variant geeft bij de call naar Format een EConvertError, waarschijnlijk omdat bij die call VarType() van Arg1 en Arg2 dan varUnknown is...

De vraag:
Kan dit eigenlijk wel, en hoe dan?

[alienfruit]

Hmm. C# is vreselijk ondersteund niet eens standaard parameter waardes! Slecht he? of niet

[_Thanatos_]

in C# zou je de untyped parameters declareren als "object", waar alle klasses van inheriten en waarnaartoe valuetypes geboxed kunnen worden. In die zin is C# (.NET dus eigenlijk) wel briljant, en dat wilde in in Delphi ook voor mekaar proberen te krijgen...

[ Voor 4% gewijzigd door _Thanatos_ op 25-01-2004 16:10 ]

[alienfruit]

Nee, dat is gewoon een algemene .NET feature, ondersteuning voor default parameters zit ook in CLS. Alleen C# ondersteunt het niet, vind ik zelf wel jammer. Zodoende krijg je dus een bulk met functies zoals je ziet in .NET.

[_Thanatos_]

oh default parameters als in "void doiets(int i = 0);"... maar wat heeft dat met mijn vraag te maken?

[LordLarry]

'array of const' kan alleen bij ordinal values en niet bij array's.

een enkele

Delphi:

function Writeln(const S: string; Value: Variant = unassigned): string;

is niet genoeg?

[_Thanatos_]

Ja prima, maar hoe geeft ik die dan door aan de Format functie? Het probleem was nml juist dat een Variant dan varUnknoen is en dus een EConvertError oplevert...

[LordLarry]

tja, dan wordt het lastig. Je zou zelf de parameter naar een reeks van ordinals kunnen omzetten als het een array is.