DGL • Thema anzeigen

TRaiseFrame

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

wic

Betreff des Beitrags: TRaiseFrame

Verfasst: Mo Feb 17, 2003 22:35

DGL Member

Registriert: Di Sep 17, 2002 20:37
Beiträge: 58

Hi
könntet mir bitte jemand die Struktur aus der System.pas oder auch SysUtils.pas mit dem Namen TRaiseFrame von Delphi 6 und/oder Delphi 7 posten?

danke

_________________
...

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Feb 17, 2003 22:54

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Hier die Struktur aus der zu Delphi 7 gehörenden System.pas :

Code:

PRaiseFrame = ^TRaiseFrame;
 
 &nbsp;TRaiseFrame = packed record
 
 &nbsp; &nbsp;NextRaise: PRaiseFrame;
 
 &nbsp; &nbsp;ExceptAddr: Pointer;
 
 &nbsp; &nbsp;ExceptObject: TObject;
 
 &nbsp; &nbsp;ExceptionRecord: PExceptionRecord;
 
 &nbsp;end;

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Mo Feb 17, 2003 22:55

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

Code:

 
type
 
 &nbsp;JmpInstruction =
 
 &nbsp;packed record
 
 &nbsp; &nbsp;opCode: &nbsp; Byte;
 
 &nbsp; &nbsp;distance: Longint;
 
 &nbsp;end;
 
 &nbsp;TExcDescEntry =
 
 &nbsp;record
 
 &nbsp; &nbsp;vTable: &nbsp;Pointer;
 
 &nbsp; &nbsp;handler: Pointer;
 
 &nbsp;end;
 
 &nbsp;PExcDesc = ^TExcDesc;
 
 &nbsp;TExcDesc =
 
 &nbsp;packed record
 
{$IFNDEF PC_MAPPED_EXCEPTIONS}
 
 &nbsp; &nbsp;jmp: JmpInstruction;
 
{$ENDIF}
 
 &nbsp; &nbsp;case Integer of
 
 &nbsp; &nbsp;0: &nbsp; &nbsp; &nbsp;(instructions: array [0..0] of Byte);
 
 &nbsp; &nbsp;1{...}: (cnt: Integer; excTab: array [0..0{cnt-1}] of TExcDescEntry);
 
 &nbsp;end;
 
{$IFNDEF PC_MAPPED_EXCEPTIONS}
 
 &nbsp;PExcFrame = ^TExcFrame;
 
 &nbsp;TExcFrame = record
 
 &nbsp; &nbsp;next: PExcFrame;
 
 &nbsp; &nbsp;desc: PExcDesc;
 
 &nbsp; &nbsp;hEBP: Pointer;
 
 &nbsp; &nbsp;case Integer of
 
 &nbsp; &nbsp;0: &nbsp;( );
 
 &nbsp; &nbsp;1: &nbsp;( ConstructedObject: Pointer );
 
 &nbsp; &nbsp;2: &nbsp;( SelfOfMethod: Pointer );
 
 &nbsp;end;
 
 &nbsp;PExceptionRecord = ^TExceptionRecord;
 
 &nbsp;TExceptionRecord =
 
 &nbsp;record
 
 &nbsp; &nbsp;ExceptionCode &nbsp; &nbsp; &nbsp; &nbsp;: LongWord;
 
 &nbsp; &nbsp;ExceptionFlags &nbsp; &nbsp; &nbsp; : LongWord;
 
 &nbsp; &nbsp;OuterException &nbsp; &nbsp; &nbsp; : PExceptionRecord;
 
 &nbsp; &nbsp;ExceptionAddress &nbsp; &nbsp; : Pointer;
 
 &nbsp; &nbsp;NumberParameters &nbsp; &nbsp; : Longint;
 
 &nbsp; &nbsp;case {IsOsException:} Boolean of
 
 &nbsp; &nbsp;True: &nbsp;(ExceptionInformation : array [0..14] of Longint);
 
 &nbsp; &nbsp;False: (ExceptAddr: Pointer; ExceptObject: Pointer);
 
 &nbsp;end;
 
{$ENDIF}
 
{$IFDEF PC_MAPPED_EXCEPTIONS}
 
 &nbsp;PRaisedException = ^TRaisedException;
 
 &nbsp;TRaisedException = packed record
 
 &nbsp; &nbsp;RefCount: Integer;
 
 &nbsp; &nbsp;ExceptObject: TObject;
 
 &nbsp; &nbsp;ExceptionAddr: Pointer;
 
 &nbsp; &nbsp;HandlerEBP: LongWord;
 
 &nbsp; &nbsp;Flags: LongWord;
 
 &nbsp;end;
 
{$ELSE}
 
 &nbsp;PRaiseFrame = ^TRaiseFrame;
 
 &nbsp;TRaiseFrame = packed record
 
 &nbsp; &nbsp;NextRaise: PRaiseFrame;
 
 &nbsp; &nbsp;ExceptAddr: Pointer;
 
 &nbsp; &nbsp;ExceptObject: TObject;
 
 &nbsp; &nbsp;ExceptionRecord: PExceptionRecord;
 
 &nbsp;end;
 
{$ENDIF}

_________________
http://www.rochus.net

Nach oben

Aya

Betreff des Beitrags:

Verfasst: Mo Feb 17, 2003 23:08

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

Offtopic: Was ist denn ein "packed Record"??? :oops:

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Feb 17, 2003 23:14

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Zitat:

Offtopic: Was ist denn ein "packed Record"??? :oops:

Wie der Name sagte ein gepackter Record, dessen Speicherverbrauch ggü. einem normalen Record niedriger ist.Allerdings hat er dadurch einen Geschwindigkeitsnachteil.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

wic

Betreff des Beitrags:

Verfasst: Mo Feb 17, 2003 23:22

DGL Member

Registriert: Di Sep 17, 2002 20:37
Beiträge: 58

danke erstmal für die schnelle antwort

@packedrecords

die Speichergröße des Records entspricht wenn packed ist, der tatsächlichen Größe der enthaltenen Variablen
also 4 Variablen á 2 Byte (z.B. Word) und ein Boolean (1 Byte (Standard-Boolean)) macht eine Record-Größe von 9 Byte wenn er packed ist.
Andernfalls erweitert Delphi aus Performancegründen (z.B. Addressierung) den Record hier auf 10 Byte. (idR. auf die nächstgelegene gerade zahl)

packed records verwendest du z.B. wenn du Typen für WinAPI-Funktionen definierst. Die gehen davon aus, das die Records die richtigen Größen haben, ansonsten knallts... oder wenn du records in Dateien speicherst...
Dann kannst du sicher sein, das deine Definitionen Versions und Sprach-übergreifend stimmen...

btw, packed gibts auch für arrays, sets sowie dateien
(also: packed array[...] of, packed set of, packed file of)
dort wird auch kräftig erweitert

_________________
...

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: Google [Bot] und 0 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.