Lokalen Record initialisieren

[Uwe Raabe]

Zitat von himitsu:

Ach ja:
InitializeRecord
FinalizeRecord

Einige der geheimen Funktionen, wie das auch UniqueString.

Und wie soll man die hier verwenden? Mein Compiler kennt die jedenfalls nicht.

Das interne InitializeRecord wird übrigens automatisch vom Compiler aufgerufen, wenn die lokale Record-Variable z.B. einen String enthält. Leider wird damit aber ein ebenso vorhandenes Integer-Feld nicht initialisiert.

Delphi-Quellcode:

type
  TSomeRecord = record
    Data: Integer;
    Name: string;
  end;
var
  someRecord: TSomeRecord;
begin
  Caption := Format('"%s"(%d)', [someRecord.Name, someRecord.Data]);
end;

[Stevie]

Zitat von Uwe Raabe:

Zitat von himitsu:

Ach ja:
InitializeRecord
FinalizeRecord

Einige der geheimen Funktionen, wie das auch UniqueString.

Und wie soll man die hier verwenden? Mein Compiler kennt die jedenfalls nicht.

Nur Initialize/Finalize. Das ruft InitializeRecord/FinalizeRecord intern auf. Oder du bastelst dir was (so kommt man übrigens an alle sonst unzugänglichen Routinen)

Delphi-Quellcode:

function InitializeRecord(P: Pointer; TypeInfo: Pointer): Pointer;
asm
  jmp System.@InitializeRecord
end;