Gennemløbe og sammenligne data

Det kan sikkert gøres på mange måde.

Mig bud:

procedure findall(s : string; a : string);

var
  ix, ix2 : integer;
  more : boolean;
  s2, olds2 : string;

begin
  ix := 1;
  more := true;
  s2 := '';
  while more do begin
      ix2 := pos('<br>', copy(s, ix, length(s) - ix + 1));
      if ix2 > 0 then begin
        olds2 := s2;
        s2 := copy(s, ix, ix2 - 1);
        if s2 = a then begin
            (* olds2 = bruger med korrekt svar *)
        end;
        ix := ix + ix2 + 3;
      end else begin
        more := false;
      end;
  end;
end;

Det virker som det skal... bortset fra at programmet crasher hvis den streng den skal søge i er tom.
Kan du smide et check ind i proceduren mod det?

Smid et svar samtidig - det skulle gerne virke perfekt når den bug er klaret :)

Mange tak for hjælpen!

Vi ligger vel bare et check ind.

procedure findall(s : string; a : string);

var
  ix, ix2 : integer;
  more : boolean;
  s2, olds2 : string;

begin
  if length(s) > 0 tne begin
    ix := 1;
    more := true;
    s2 := '';
    while more do begin
        ix2 := pos('<br>', copy(s, ix, length(s) - ix + 1));
        if ix2 > 0 then begin
          olds2 := s2;
          s2 := copy(s, ix, ix2 - 1);
          if s2 = a then begin
              (* olds2 = bruger med korrekt svar *)
          end;
          ix := ix + ix2 + 3;
        end else begin
          more := false;
        end;
    end;
  end;
end;

Og et svar

ok, fandt ud af at det ikke var din funktion der gjorde det... sidder et eller andet sted i mit program.
Din funktion virker som den skal :)

Smid et svar, og få points :D

Tak