Überprüfen ob alle Zeilen vorhanden sind

[Sir Rufo]

Wen es interessiert ... hier eine Between-Funktion, die auch mit geschachtelten Variablen zurechtkommt.
Der Aufruf Between( '{{Variable}}', '{', '}' ) ergibt in dieser Funktion '{Variable}'
in der Funktion von marabu erhält man '{Variable'

Delphi-Quellcode:

function Between(const S : string; const Start, Stop : char): string;
var
  sp,
  il,
  ir : integer;
begin
  sp := Pos( Start, S );
  if ( sp > 0 )
  then begin
    inc( sp );
    il := sp;
    ir := sp;
    repeat
      ir := PosEx( Stop, S, ir );
      il := PosEx( Start, S, il );
      if (il = 0) or ( il > ir )
      then
        il := 0
      else begin
        il := il + 1;
        ir := ir + 1;
      end;
    until (il = 0) or (ir = 0);
    RESULT := copy(S, sp, ir - sp );
  end
  else
    RESULT := '';
end;

War nur so als Zeitvertreib gedacht :mrgreen: