Optimierungsmöglichkeiten ?

[th_bone]

Hi,

ich habe hier den code eines events der daten in einen Puffer array of record schreibt

da dieser event sehr zeitkritisch ist meine Frage: wo/wie könnte ich hier noch eine optimierung des codes machen um die abarbeitungsgeschwindigkeit zu verbessern ?

Danke

Ralf

Delphi-Quellcode:

procedure TForm1.IABSocket1TickPriceAndSize(Sender: TObject; DataId: Integer;
  TickType: TIABTickType; Price: Double; Size: Integer);
begin
  with tickbufferarray[bufferindex] do begin
    Btickdate  := nowutc;   // Zeit im UTC Format
    BDataId    := dataid;
    BTickType  := ticktype;
    BPrice     := price;
    BSize      := size;
    r2wdone    := 0;
    GSdone     := 0;
  end;

  // Pufferindex erhöhen
  if (bufferindex>=Buffersize) then        // buffersize = als const 100000 definiert
    interlockedexchange(bufferindex,0)     // bufferindex:=0;
  else
    interlockedexchangeadd(bufferindex,1); // (inc(bufferindex)
end;