Wie kann ich eine Aufzeichnung einfacher Typen schnell löschen?

Habe ich eine Struktur, die wie folgt definiert sind:

const
  MaxSignalRecords=255;
type
  TSignalRecord=record
   signal1  : integer;
   signal2  : integer;
   signal3  : integer;
   signal4  : integer;
   signal5  : integer;
   signal6  : integer;
   bsignal1 : Boolean;
   bsignal2 : Boolean;
   bsignal3 : Boolean;
   bsignal4 : Boolean;
   bsignal5 : Boolean;
   bsignal6 : Boolean;
  end;

TListSignals = Array[0..MaxSignalRecords-1] of TSignalRecord;

Diese Struktur wird verwendet, um Tausende von Berechnungen in einem Algorithmus wie diese:

for i:=1 to 900000 do
begin
  CleartheList(MyList);
  DotheMath(MyList);
  DotheChart(MyList);
end;

Ich bin auf der Suche nach einem schnellen Weg, um initializate die Werte, die ich TListSignals 0 false.

Jetzt bin ich mit dieser :

procedure ClearListSignals(var ListSignals:TListSignals);
var
  i :Integer;
begin
  for i := 0 to MaxSignalRecords - 1 do
  with ListSignals[i] do
  begin
   signal1   :=0;
   signal2   :=0;
   signal3   :=0;
   signal4   :=0;
   signal5   :=0;
   signal6   :=0;
   bsignal1  :=false;
   bsignal2  :=false;
   bsignal3  :=false;
   bsignal4  :=false;
   bsignal5  :=false;
   bsignal6  :=false;
  end;
end;

Wie kann ich das verbessern der Leistung des ClearListSignals Verfahren?

InformationsquelleAutor der Frage Salvador | 2011-04-01

  1. 27

    können Sie die ZeroMemory Prozedur, die sich in der Windows Einheit.

    var
  MyList : TListSignals;
begin
     ZeroMemory(@Mylist,SizeOf(MyList));
end;

    InformationsquelleAutor der Antwort RRUZ

  2. 15

    Sollten Sie die standard-Delphi-Sprache-Funktion (Default)!

    const
  MaxSignalRecords = 255;

type
  TSignalRecord = record
    ...
    bsignal6 : Boolean;
  end;

var
  X: TSignalRecord
...
X := Default(TSignalRecord);
...

    Und kein hack.. wie vorgeschlagen vor..

    InformationsquelleAutor der Antwort Z.B.

  3. 12
    FillChar(ListSignals, SizeOf(ListSignals), 0);

    InformationsquelleAutor der Antwort Misha

  4. 8

    Zusätzlich zu dem, was gesagt wurde über FillChar und ZeroMemory (die intern nur Anrufe FillChar sowieso), können Sie reduzieren die Größe Ihres Eintrags durch die Verwendung von bsignal: set of 1..6; statt einzelne Boolesche Werte, die beschleunigen sollte die clearing-leicht.

    InformationsquelleAutor der Antwort Thorsten Engler

  5. 2

    Können Sie SecureZeroMemory

    Vermeiden unerwünschte Wirkungen von
    die Optimierung der Compiler, verwenden Sie die
    SecureZeroMemory Funktion.

    Den SecureZeroMemory Funktion füllt eine
    block im Speicher mit Nullen. Es ist
    entwickelt, um eine sicherere version
    von ZeroMemory.

    Verwenden Sie diese Funktion, anstatt
    ZeroMemory wenn Sie sicherstellen möchten,
    Ihre Daten werden überschrieben
    prompt, als der compiler optimieren kann
    ein Aufruf ZeroMemory indem Sie es
    ganz.

    http://msdn.microsoft.com/en-us/library/aa366877%28v=vs.85%29.aspx

    LE: hier haben Sie, wie es zu benutzen in Delphi, wenn Ihre version nicht enthalten:

    Mit SecureZeroMemory in Delphi

    InformationsquelleAutor der Antwort RBA

Schreibe einen Kommentar