Kommischer ERange Error

**PhilmacFLy**

Min DP'ler

Bin grad am programmieren mit Lazarus und bin dabei auf folgendes Problem gestoßen:
Ich bekomme einen ERange Error bei folgender anweisung:

zusammenfalten · markieren

Delphi-Quellcode:

			  foo := code[i];

    l := high(changefuncs);

    for k := 0 to l do

    begin

      if (pos(changefuncs[k].Name, foo) > 0) and not newfunc and not //hier kommt der Fehler

        kommentar then

      begin

        while (pos('(', code[j]) = 0) or (pos(');', code[j]) > 0) or

          (pos('if', code[j]) > 0) do

          j := j - 1;

        loadfunc(newfunc, j, tmp, code);

      end;

    end;

und ich hab keine idee woran das liegt, weil ich geh doch nur bis high(changefuncs)
btw: Changefuncs ist vom type state und state ist:

markieren

Delphi-Quellcode:

			type

  state = record

    startline: integer;

    endline: integer;

    Name: string [30];

  end;

Kann mir da jemand helfen, weil ich keine Idee hab.

Kommischer ERange Error

Kommischer ERange Error

Forumregeln