Ohne Nil prüfen ob Objekt erstellt wurde.

[BeniBela]

Code: Alles auswählen

 
if not assigned(fMyIntf) then fMyIntf := TIrgendWas.create; 

Der record Nutzer ist dafür verantwortlich es auf nil zu setzen

Das größere Problem könnte die Freigabe sein

[theo]

Code: Alles auswählen

 
if not assigned(fMyIntf) then fMyIntf := TIrgendWas.create; 

Der record Nutzer ist dafür verantwortlich es auf nil zu setzen

Das größere Problem könnte die Freigabe sein

Nö, der Record Nutzer soll sich darum eben nicht kümmern müssen.
Die Freigabe sollte OK sein, deshalb ja das Interface, wegen dem Referenzzähler.

Eine Möglichkeit habe ich mir überlegt. Man könnte eine QWord Kontrollvariable mitführen und diese nach dem Createn auf einen bestimmten konstanten Wert setzen.
Vorher kann man diese Variable gegen die Konstante prüfen. Dass die Variable zufällig diesen einen, bestimmten Anfangswert bekommt, ist extrem unwahrscheinlich.

[BeniBela]

Ich habe mal ein paar Funktionen durchprobiert (unter 2.6):

Die Initialisierung erfolgt mit der Funktion fpc_initialize. Danach ist die Variable verfügbar, vorher nicht. Die Freigabe mittels fpc_finalize. Ohne fpc_finalize-Aufruf wird trotz interface auch nichts freigeben.

Code: Alles auswählen

 
var x: trec;
 

Ruft fpc_initialize beim Prozedurbeginn und fpc_finalize am Ende auf

Code: Alles auswählen

 
new(rec);
dispose(rec);
 

New ruft automatisch fpc_initialize auf (obwohl das der Dokumentation widerspricht) und dispose fpc_finalize.

Code: Alles auswählen

 
getmem(rec);
freemem(rec);
 

Ruft nichts auf. Nicht verwenden!

Eine Möglichkeit habe ich mir überlegt. Man könnte eine QWord Kontrollvariable mitführen und diese nach dem Createn auf einen bestimmten konstanten Wert setzen.
Vorher kann man diese Variable gegen die Konstante prüfen. Dass die Variable zufällig diesen einen, bestimmten Anfangswert bekommt, ist extrem unwahrscheinlich.

Unsinn. Der Wert kommt nicht zufällig, sondern ist der Wert, den der letzte Record dort hatte

[theo]

Unsinn. Der Wert kommt nicht zufällig, sondern ist der Wert, den der letzte Record dort hatte

Kann ich nicht bebachten.

Code: Alles auswählen

type
 
  TRec=Record
    wd:QWord;
  end;     
...
procedure TForm1.Button1Click(Sender: TObject);
var a:TRec;
begin
  Memo1.lines.Add(IntToStr(a.wd));
  a.wd:=1234;
  Memo1.lines.Add(IntToStr(a.wd));
end;     

[BeniBela]

Weil die LCL es durcheinander bringt. Probiere es in einem Konsolenprogramm

[theo]

Schon klar, dass das Flickwerk ist.
Das was ich wollte, geht so einfach nicht.
Ich kann es anders lösen, es wird aber umständlicher.

Danke an alle.

[Socke]

Dann setz die Variable doch auf nil, sobald sie verfügbar ist!

Und wann wäre das innerhalb eines Records?

Unmittelbar, nachdem du den Speicher für den gesamten Record reservierst. Der Record erscheint ja nicht zufällig im Speicher.
Damit du das nicht an allen Stellen in deinem Code machen musst, an denen du diese Records erzeugst, kannst du dir auch eine Factory-Prozedur bauen (die dann selbstverständlich nicht zum Record gehört).

[theo]

Dann setz die Variable doch auf nil, sobald sie verfügbar ist!

Und wann wäre das innerhalb eines Records?

Unmittelbar, nachdem du den Speicher für den gesamten Record reservierst. Der Record erscheint ja nicht zufällig im Speicher.
Damit du das nicht an allen Stellen in deinem Code machen musst, an denen du diese Records erzeugst, kannst du dir auch eine Factory-Prozedur bauen (die dann selbstverständlich nicht zum Record gehört).

Wie meinst du das?
Ich möchte nicht, dass der User irgendwas spezielles machen muss mit dem Record, sonst würde ich das Create einer Klasse benutzen.

[Socke]

Wie meinst du das?
Ich möchte nicht, dass der User irgendwas spezielles machen muss mit dem Record, sonst würde ich das Create einer Klasse benutzen.

Im Prizip gehört jeder Entwickler geteert und gefedert, der auf einen Record lesend zugreift, ohne ihn vorher zu initialisieren. Das kann er entweder selbst machen (für mich wäre das "nichts spezielles" sondern etwas selbstverständliches) oder du forderst (Dokumentation!), dass der Record ausschließlich über eine Factory-Prozedur erstellt wird (bei Ablage auf dem Heap) oder du entscheidest dich doch für ein Objekt.

New ruft automatisch fpc_initialize auf (obwohl das der Dokumentation widerspricht) und dispose fpc_finalize.

Code: Alles auswählen

getmem(rec);
freemem(rec); 

Ruft nichts auf. Nicht verwenden!

New() und Dispose() rufen fpc_initialize bzw. fpc_finailize auf, wenn referenzgezählte Typen (COM-Interfaces, Unicode-/AnsiStrings, dynamische Arrays, NICHT für Objekte/Klassen, CORBA-Interfaces, statische Arrays und Shortstrings) im Record verwendet werden. Diese Typen benötigen zwingend eine Initialisierung. Dies fehlt in der Tat in der Dokumenation.

[Mathias]

Im Prizip gehört jeder Entwickler geteert und gefedert, der auf einen Record lesend zugreift, ohne ihn vorher zu initialisieren.

Wird ein record nicht mit Nullen/LeerString aufgefüllt, oder war dies Zufall ?

Code: Alles auswählen

var
  r: record
    a, b, c: integer;
    s: string;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with r do begin
    WriteLn(a);
    WriteLn(b);
    WriteLn(c);
    WriteLn(s);
  end;
end;

[theo]

Im Prizip gehört jeder Entwickler geteert und gefedert, der auf einen Record lesend zugreift, ohne ihn vorher zu initialisieren.

Wird ein record nicht mit Nullen/LeerString aufgefüllt,

Nein, was ich allerdings zumindest schade finde.
Wir wäre es mit einem neuen Type InitializedRecord ?

[Mathias]

So könnte man dies umgehen, ist zwar etwas mühsam.

Code: Alles auswählen

var
  r: record
    a, b, c: integer;
    s: string;
  end
  = (a: 0; b: 0; c: 0; s: '');   

Für Codetools wäre das eine gute Ergänzung, wen man nach dem "=" Ctrl+Shift+C drücken könnte.

Nein, was ich allerdings zumindest schade finde.

Müsste bei

Code: Alles auswählen

WriteLn(r.a);

keine Warnung kommen, wen die Variable nicht initialisiert ist ?

[theo]

Ja, Global ist das initialisiert, aber so verwende ich die eher nicht.

So ist beides nicht initialisiert. Inkl. Warnung.

Code: Alles auswählen

type
  tr= record
    a, b, c: integer;
    s: string;
  end ; 
 ....
procedure TForm1.Button1Click(Sender: TObject);
var r:tr;
  re: record
    a, b, c: integer;
    s: string;
  end;
begin
  writeln(r.a);
  writeln(re.a);
end;
 

[Mathias]

Stimmt, inerhalb einer Methode, hängt der Bezeichner in der Luft.

Dies ist aber bei einem einfachen Integer auch der Fall.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  writeln(i);
end;

[Socke]

New() und Dispose() rufen fpc_initialize bzw. fpc_finailize auf, wenn referenzgezählte Typen (COM-Interfaces, Unicode-/AnsiStrings, dynamische Arrays, NICHT für Objekte/Klassen, CORBA-Interfaces, statische Arrays und Shortstrings) im Record verwendet werden. Diese Typen benötigen zwingend eine Initialisierung. Dies fehlt in der Tat in der Dokumenation.

Einschränkung: es werden nur die referenzgezählten Typen initialisiert; alle anderen Felder bleiben uninitialisiert.

@theo: geht es dir hier nur im COM-Interfaces oder allgemein um Record-Felder?