Default Value bei eigenen Typ

[amoibos]

Hallo,
ich habe hier ein selbstdefinierten Datentyp(dynamischer Array) als Argument einer Methode. Kann man dafür auch ein Default-Wert angeben oder muss man die Methode dann doppelt definieren?

[mkinzler]

Wenn Du für den Defaultwert eine Konstante deklarierst sollte es gehen.

[amoibos]

Das gilt doch nur für eine Auswahl von Standardtypen zmd. funktioniert [''] schon mal nicht.

[Der schöne Günther]

Ich verstehe das Problem nicht. Dynamisches Array? Warum nicht einfach

Delphi-Quellcode:

nil

?

Delphi-Quellcode:

type TMeinArray = array of Integer;

procedure meineMethode(arg: TMeinArray = nil);
begin
   //
end;

[amoibos]

Hat sich erledigt, bin von den selbsterstellten Typ zum offenen Array übergegangen.
Damit funktioniert nil natürlich nicht, mit der alten Lösung aber schon. Ist aber trotzdem hilfreich, danke.

[Dennis07]

Mengentypen können unter Delphi keinen Standardwert besitzen, wenn sie als Parameter einer Methode übergeben werden.

[Der schöne Günther]

Na klar können sie das:

Delphi-Quellcode:

{$APPTYPE CONSOLE}

type
   TItem = (uno, dos, tres);
   TItems = set of TItem;

procedure processItems(const items: TItems = []);
begin
   //
end;

begin
   processItems();
end.

[himitsu]

Solange das SET in einen INTEGER passt. (maximal 32 Werte)

[Dennis07]

Ja, okay, ich korrigiere mich:
Mengentypen außer "Small Set" können keinen Standardwert als Parameter einer Methode haben. Dies gilt aber auch für arrays.

[himitsu]

Wobei ich das bei Arrays nicht ganz verstehe, denn der Pointer zu einem konstanten dynamischen Array passt in den Integer rein, genauso wie bei LongStrings.
Was es bei Arrays in Delphi aber komischer Weise nicht gibt, weil man da wohl was mit der Refferenzzählung vergessen hat, die eh "defekt" ist (kein Copy-On-Write, bei Schreibzugriffen).

[Dennis07]

Was genau meinst du mit "Copy-on-Write"?

[Luckie]

Die Werte werden erst kopiert (im Speicher), wenn sie wirklich benötigt werden. Werden sie nur gelesen, wird nichts kopiert. Weil sie nicht verändert werden.

[Dennis07]

Ah. Also praktisch dass die Daten vom Stack in ein Register geladen werden, dieses verändert wird und dann wieder auf den Stack geschrieben wird?

[Luckie]

Ja. Sobald der Compiler "merkt", dass sie verändert werden und vom Code eine Kopie benötigt wird. Eigentlich programmiert man one das Wissen im Hintergrund. Ich habe mir noch nie Gedanken drüber gemacht.

[himitsu]

Delphi-Quellcode:

var S1, S2: string;
S1 := 'abcd';
S2 := S1;
S2[2] := 'B';
ShowMessage(S1 + sLineBreak + S2);  // abcd aBcd

var B1, B2: TBytes;
B1 := (1, 2, 3, 4);
B2 := B1;
B2[1] := 22;
// Arrays ausgeben > BEIDE (1, 22, 3, 4)

Bei Strings gibt es RefCount=-1 für Konstanten.

[Stevie]

Zitat:

Zitat von himitsu (Beitrag 1319685)

Wobei ich das bei Arrays nicht ganz verstehe, denn der Pointer zu einem konstanten dynamischen Array passt in den Integer rein, genauso wie bei LongStrings.
Was es bei Arrays in Delphi aber komischer Weise nicht gibt, weil man da wohl was mit der Refferenzzählung vergessen hat, die eh "defekt" ist (kein Copy-On-Write, bei Schreibzugriffen).

Auf die Gefahr hin, ein Duplikat erzeugt zu haben, hab ich es mal eingetragen.

[Dennis07]

Ehm. Sorry wenn ich da was falsch verstanden hab, dann bitte korrigieren.
Aber um mal auf deinen Code im QC zu kommen:
Du deklarierst eine Konstante

Delphi-Quellcode:

numbers: TArray<Integer> = [1, 2, 3]

"TArray<T>" ist ja deklariert mit "array of T", also ein Array-Typ.
Allerdings initialisiert man Array-Konstanten doch mit Runden Klammern, sofern ich mich nicht irre (hab ich zumindest immer so gemacht).
Eckige Klammern sind doch soweit ich weiß für Set-Konstanten...?!

Delphi-Quellcode:

const
  MyArr: array [0..2] of Char = ('A','B','C');
  MySet = ['A','B','C'];

[Stevie]

http://blog.marcocantu.com/blog/2014...delphixe7.html

[Dennis07]

Oh, hm okay. Ja dass man das zur Laufzeit irgendwie jetzt mit [] zuweisen kann hab ich irgendwie mal gelesen.
Aber dass man jetzt dynamische Array-Konstanten deklarieren kann und diesen dann mit [] Werte zuweisen kann wusste ich nicht.
Naja, da ich eh fürs erste bei XE5 bleibe ist das eh nur nice-to-know für mich. =)