Ein Record 'auf null setzen'

[kagi3624]

Hallo, ich benutze einen Record immer wieder in einer Schleife, wie setze ich es auf null bzw. lösche dort alle werte richtig, bevor ich es neu beschreibe?

ZeroMemory(@MyRecord,SizeOf(MyRecord));

habe ich gefunden, es gibt aber auch die Funktion Default, aber da weiß ich nicht ob es mit Delphi 6 läuft. Thx

[dummzeuch]

Zitat von kagi3624:

Hallo, ich benutze einen Record immer wieder in einer Schleife, wie setze ich es auf null bzw. lösche dort alle werte richtig, bevor ich es neu beschreibe?

ZeroMemory(@MyRecord,SizeOf(MyRecord));

habe ich gefunden, es gibt aber auch die Funktion Default, aber da weiß ich nicht ob es mit Delphi 6 läuft. Thx

Default gibt es erst seit neueren Delphi-Versionen. ZeroMemory oder FillChar sind die Funktionen, die man zu Delphi 6 Zeiten verwendet hat und solange man in dem Record keine Managed Types verwendet (String (ShortString oder String[n] ist OK), Interface, dyn. Array), funktioniert das auch super.

[kagi3624]

Zitat von dummzeuch:

Default gibt es erst seit neueren Delphi-Versionen. ZeroMemory oder FillChar sind die Funktionen, die man zu Delphi 6 Zeiten verwendet hat und solange man in dem Record keine Managed Types verwendet (String (ShortString oder String[n] ist OK), Interface, dyn. Array), funktioniert das auch super.

Ich hab aber leider dynamische Arrays in meinem Record

[KodeZwerg]

SetLength() kann bei dyn. Arrays helfen.

[Andreas13]

Hallo,
Automatismen sind schön und gut, aber manchmal können Null-Werte einer Variablen numerische Probleme bei den nachfolgenden Berechnungen verursachen. Daher verwende ich nach / anstelle ZeroMemory(@MyRecord,SizeOf(MyRecord)); oder Result:= Default(MB_Record); oder  FillChar(Result, SizeOf(Result), 0); etc. stets eigene Proceduren, die die kritischen Variablen auf "ungefährliche" oder "sinnlose" Werte setzt. Dazu habe ich für die meisten Datentypen eine überladene Funktion namens Sinnlos deklariert, die den jeweiligen Variablen die passenden Werte zuweist:

Delphi-Quellcode:

Function Sinnlos: Extended; Overload;
Begin
  Result:= ... ; // wie +/-Unendlich, NaN, negativ, MaxExtended etc.
End;

Gruß, Andreas

[dummzeuch]

Zitat von kagi3624:

Zitat von dummzeuch:

Default gibt es erst seit neueren Delphi-Versionen. ZeroMemory oder FillChar sind die Funktionen, die man zu Delphi 6 Zeiten verwendet hat und solange man in dem Record keine Managed Types verwendet (String (ShortString oder String[n] ist OK), Interface, dyn. Array), funktioniert das auch super.

Ich hab aber leider dynamische Arrays in meinem Record

Dann solltest Du die vor einem ZeroMemory mittels SetLength(Arrayname, 0) freigeben. Danach ist ein ZeroMemory kein Problem mehr, da intern ein dynamisches Array der Länge 0 ein NIL-Pointer ist, sich also durch ZeroMemory nichts ändert. Dasselbe gilt für AnsiStrings: Auf '' setzen, macht daraus einen NIL-Pointer. Dito Interfaces sollte man direkt auf NIL setzen.

Wichtig ist das wegen des Reference-Countings. ZeroMemory geht an den vom Compiler eingebauten Machanisme für Reference-Counting vorbei und verursacht ggf. spaßige Effekte wie Access Violations.

[himitsu]

Sind da gemangtae Typen im Record?
Strings, Interfaces usw.?

Dann vor dem Zero unbedingt ein Finalize (FinalizeArray mit Count=1 oder FinalizeRecord, sie System-Unit)