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;