Delphi: Wie kann ich alle Klassenfelder auf Null zurücksetzen?

Question

Ich habe eine Klasse mit vielen numerischen Feldern, die Anzahl der Felder wächst mit der Projektentwicklung, also wäre es schön, eine Möglichkeit zu haben, alle Felder zurückzusetzen, egal wie viele in Zukunft hinzugefügt werden.

TParams = class 
    public 
    defined: boolean; 
    FirstValue:    byte; // reset from here 
    A0:  single; 
    A1:  single; 
    H1:  TPoint; 
     // ............... 
    A100:  single; 
    LastValue:    byte; // to here 
    procedure Reset; 
    end; 

Die einzige Idee in den Sinn kommt, ist 2 Felder einfügen: vor und nach dem Block, der reseted werden sollte, und verwenden FillMemory:

procedure TParams.Reset; 
begin 
    FillMemory(@FirstValue, Integer(@LastValue)-Integer(@FirstValue),0); 
end; 

Gibt es eine bessere Art und Weise? (Im mit Delphi 7)

Answer 1

David Heffernan es schon gesagt: was Sie tun, ein hässlich hacken und nicht sehr sauber. Er gab auch den Hinweis: Drehen Sie Ihre numerische Felder in einem Datensatz:

type 
    TParams = class 
    public 
    Defined: Boolean; 
    Numbers: record 
     A0: Single; 
     A1: Single; 
     H1: TPoint; 
     A100: Single; 
    end; 
    procedure Reset; 
    end; 

Nun ist es sehr einfach, können Sie Reset indem Sie folgendermaßen vorgehen:

procedure TParams.Reset; 
begin 
    FillChar(Numbers, SizeOf(Numbers), 0); 
end; 

Ein einfacher Test:

procedure Test; 
var 
    P: TParams; 
begin 
    P := TParams.Create; 
    try 
    Writeln(Format('%f %f (%d, %d) %f', [P.Numbers.A0, P.Numbers.A1, P.Numbers.H1.X, P.Numbers.H1.Y, P.Numbers.A100])); 
    P.Numbers.A0 := 1.0; 
    P.Numbers.A1 := 2.0; 
    P.Numbers.H1 := Point(11, 22); 
    P.Numbers.A100 := 77.0; 
    Writeln(Format('%f %f (%d, %d) %f', [P.Numbers.A0, P.Numbers.A1, P.Numbers.H1.X, P.Numbers.H1.Y, P.Numbers.A100])); 
    P.Reset; 
    Writeln(Format('%f %f (%d, %d) %f', [P.Numbers.A0, P.Numbers.A1, P.Numbers.H1.X, P.Numbers.H1.Y, P.Numbers.A100])); 
    finally 
    P.Free; 
    end; 
end; 

Dies erzeugt die folgende Ausgabe:

0.00 0.00 (0, 0) 0.00 
1.00 2.00 (11, 22) 77.00 
0.00 0.00 (0, 0) 0.00 

---

Alternativ können Sie folgendes tun:

TNumbers = record 
    A0: Single; 
    A1: Single; 
    H1: TPoint; 
    A100: Single; 
    end; 

    TParams = class 
    public 
    Defined: Boolean; 
    Numbers: TNumbers; 
    procedure Reset; 
    end; 

Für die mit einer Version mit Generika (Ich weiß, Sie sind mit Delphi 7, die keine Generika, aber wie auch immer, für die anderen), dass Wille vereinfachen Reset ein wenig:

procedure TParams.Reset; 
begin 
    Numbers := Default(TNumbers); 
end; 

Default hat den Vorteil, dass es richtig abschließen wird und den Datensatz initialisieren, falls es verwalteten Typen (Strings, Schnittstellen, etc.) darin.

Answer 2

In einigen eingeschränkten Szenarien wie Sie Ihren Fall mit TParams ist, ein Aufruf an InitInstance sollte es tun:

procedure TParams.Reset; 
begin 
    InitInstance(Self); 
end;