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.