Kann man diese Funktion noch weiter optimieren?

[samso]

Ok, falls es nicht auf Schönheit ankommt, würde ich folgendes Feintuning vorschlagen.

Delphi-Quellcode:

function ExtractLinesFromBuffer(const ABuffer: string): Integer; 
var 
  pBuffer, pBegin: PChar; 
  Ch             : Char;
  sLine          : string; 
begin 
  Result := 0; 
  pBuffer := PChar(ABuffer); 
  while pBuffer^ <> #0 do 
  begin 
    pBegin := pBuffer;
    Ch := pBuffer^;
    while (Ch<>#13) and (Ch<>#10) and (Ch<>#0) do
    begin
      Inc(pBuffer); 
      Ch := pBuffer^;
    end;
    SetString(sLine, pBegin, pBuffer - pBegin); 
    //showmessage(sline); hier sline verarbeiten 
    Inc(Result); 
    if pBuffer^ = #13 then Inc(pBuffer); 
    if pBuffer^ = #10 then Inc(pBuffer); 
  end; 
end;

Dadurch vermeidet man den overhead für den Aufruf der CharInSet-Funktion, der direkte Vergleich der Char's wird sehr effizient über Register realisiert. Ob's was bringt? - Vermutlich nur bei sehr sehr langen Zeilen. D.h. wenn sehr viele erfolglose Vergleiche ausgeführt werden müssen, bevor mal endlich ein Zeilenende kommt. Sind die Zeilen eher kurz, wird der overhead der SetString-Funktion viel stärker zu Buche schlagen.