Einzelnen Beitrag anzeigen

th_bone

Registriert seit: 16. Jun 2004
172 Beiträge
 
Delphi 2005 Professional
 
#1

Optimierungsmöglichkeiten ?

  Alt 23. Jan 2006, 13:49
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;
  Mit Zitat antworten Zitat