Pos & PosEx für Streams

[jfheins]

Da es doch einige gibt, die nicht so richtig warm werden mit Streams, hier mal 2 Funktionen, die wie Pos und PosEx funktionieren, nur eben mit Streams.

Die sind jetzt mehr für "Dummies" - also nicht auf Performance getrimmt

PosStream gibt die erste Position des Suchstrings im Stream zurück.

PosExStream gibt die Position des ersten Vorkommens zurück, nach der übergebenen Position.

Die zurückgegebene Position ist nullbasiert (wie im Stream) - falls nicht gefunden wird -1 zurückgegeben.

Es wird dringend empfohlen, einen gepufferten Stream zu verwenden

Delphi-Quellcode:

function PosStream(const Stream: TStream; needle: String) : Int64;
begin   
  Result := PosExStream(Stream, needle, -1);
end;


function PosExStream(const Stream: TStream; needle: String; position: Int64) : Int64;
var 
  i: Integer; 
  pos: Int64; 
  pattern: String; 
begin   
  Stream.Position := position + 1; 
  setlength(pattern, length(needle));

  while (Stream.size - Stream.Position) >= length(needle) do 
  begin 
    pos := Stream.Position; 
  
    Stream.ReadBuffer(pattern[1], length(needle)); 
     
    if comparemem(@pattern[1], @needle[1], length(needle)) then 
    begin 
      Result := pos; 
      exit; 
    end; 
    
    Stream.position := pos + 1; // Wir müssen byteweise vorgehen
  end; 
  
  Result := -1;
end;