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

zusammenfalten · markieren

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;

Pos & PosEx für Streams

Pos & PosEx für Streams

Forumregeln