AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Lokalen Record initialisieren

Ein Thema von Der schöne Günther · begonnen am 12. Nov 2013 · letzter Beitrag vom 12. Nov 2013
Antwort Antwort
Seite 1 von 2  1 2   
Der schöne Günther

Registriert seit: 6. Mär 2013
6.093 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

Lokalen Record initialisieren

  Alt 12. Nov 2013, 12:56
Delphi-Version: XE5
Lokale Variable in einer Prozedur, es ist ein Record. Da es kein 'managed' Typ wie ein String ist, stehen anfangs ja noch die wildestens Dinge in den Feldern. Ich sehe mittlerweile schon vier verschiedene Möglichkeiten, das Ding zu initialisieren:

Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
var
   startInfo: TStartupInfo;
   someRecord: TSomeRecord;
begin

   ZeroMemory(@someRecord, SizeOf(someRecord));    // (1)
   someRecord := Default(TSomeRecord); // (2)
   FillChar(someRecord, SizeOf(someRecord), 0); // (3)
   someRecord := TSomeRecord.Create(True); // (4)

   print(someRecord.someInt);
   print(someRecord.someByte);

end;

mit

Delphi-Quellcode:
TSomeRecord = record
   someInt: Integer;
   someByte: Byte;
   constructor Create(const useDefault: Boolean);
end;

constructor TSomeRecord.Create(const useDefault: Boolean);
begin
   if useDefault then
      self := Default(TSomeRecord); // Methoden (1)-(3) oder komplett von Hand
end;

ZeroMemory ist aus Winapi.Windows , FillChar aus System . Zu Default finde ich nichts.


Abgesehen davon, dass ZeroMemory eine Windows-Funktion ist, was sollte man eigentlich im Normalfall nehmen? Ich bin im Debugger nicht detailliert durchgesteppt, aber so eine große Auswahl macht einem ja geradezu Angst...
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Lokalen Record initialisieren

  Alt 12. Nov 2013, 14:13
Da hab ich auch schon ein paar Mal überlegt und bin bei Option 3 geblieben.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.016 Beiträge
 
Delphi 12 Athens
 
#3

AW: Lokalen Record initialisieren

  Alt 12. Nov 2013, 15:01
Am Sichersten ist man wohl mit Option 2 und 4.

Schade daß man keine parameterlosen Record-Konstructoren erstellen darft. (Nja, dank eines defaultparameters könnte man da eventuell tricksen).

Man könnte emba ja mal fragen, ob die einem einen lokalen Compilerschalter geben, mit dem man sagen kann daß er bei den "nachfolgenden" Prozeduren die lokalen variablen mit 0 initialisieren soll. Oder einen Parameter, welchen man bei den Variablendeklarationen angibt. (quasi wie das absolute oder bei den Properties das default)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (12. Nov 2013 um 15:05 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.007 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#4

AW: Lokalen Record initialisieren

  Alt 12. Nov 2013, 15:05
Ich würde Methode 2 benutzen. Im Gegensatz zu den anderen Möglichkeiten ist die nämlich auch safe, wenn man möglicherweise managed Felder im Record hat und diese unter Umständen schon irgendwie zwischen begin und dem Aufruf gesetzt wurden. Ein ZeroMemory (welches auch nur FillChar aufruft) schreibt nämlich einfach stumpf Nullen drüber. Das funktioniert für managed Felder also nur, wenn diese sowieso schon genullt sind.

Siehe dieser SO Eintrag (und die verlinkte Antwort von Allen Bauer)

Mehr Informationen auch noch hier bzgl der Performance von Default() (in der Antwort von Arnaud): http://stackoverflow.com/questions/1...delphi-at-once


(Nja, dank eines defaultparameters könnte man da eventuell tricksen).

Code:
E2471 Possibly parameterless constructors not allowed on record types
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight

Geändert von Stevie (12. Nov 2013 um 15:13 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#5

AW: Lokalen Record initialisieren

  Alt 12. Nov 2013, 15:16
(Nja, dank eines defaultparameters könnte man da eventuell tricksen).

Code:
E2471 Possibly parameterless constructors not allowed on record types
Aber so ginge es:

Delphi-Quellcode:
  TSomeRecord = record
    class function Create: TSomeRecord; static;
  end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.016 Beiträge
 
Delphi 12 Athens
 
#6

AW: Lokalen Record initialisieren

  Alt 12. Nov 2013, 15:26
Ach ja:
Delphi-Referenz durchsuchenInitializeRecord
Delphi-Referenz durchsuchenFinalizeRecord

Einige der geheimen Funktionen, wie das auch UniqueString.
Delphi nutzt diese Funktionen selber, um die managed Typen in Recordvariablen zu behandeln und auch bei Objektvariablen oder bei Delphi-Referenz durchsuchenNew und Delphi-Referenz durchsuchenDispose.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.007 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#7

AW: Lokalen Record initialisieren

  Alt 12. Nov 2013, 15:29
(Nja, dank eines defaultparameters könnte man da eventuell tricksen).

Code:
E2471 Possibly parameterless constructors not allowed on record types
Aber so ginge es:

Delphi-Quellcode:
  TSomeRecord = record
    class function Create: TSomeRecord; static;
  end;
Schon klar.
Aber in diesem Fall schreibt man extra Code, um etwas langsamer zu lösen, als es mit weniger Code vom Compiler erledigt wird.
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.016 Beiträge
 
Delphi 12 Athens
 
#8

AW: Lokalen Record initialisieren

  Alt 12. Nov 2013, 15:36
Und vergiss nicht das
Delphi-Quellcode:
with Result do begin


end;
um den Code in der "falschen" Create-Funktion, damit der enthaltene Code dann genauso geschrieben werden kann, als stünde er in einem richtigen Constructor.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
6.093 Beiträge
 
Delphi 10 Seattle Enterprise
 
#9

AW: Lokalen Record initialisieren

  Alt 12. Nov 2013, 15:40
Einige der geheimen Funktionen, wie das auch UniqueString.
Ähnlich wie das Default: Die sind wohl wirklich so geheim dass es keine offizielle Doku dazu gibt, oder? Gerade das Default hätte mich jetzt interessiert, aber ich stelle mich zu dumm an, irgendwas zu finden.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.016 Beiträge
 
Delphi 12 Athens
 
#10

AW: Lokalen Record initialisieren

  Alt 12. Nov 2013, 15:43
Das Default(T) stammt vermutlich von den Generics. (steht da bestimmt irgendwo unauffällig in der Doku mit drin)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz