Der Compiler meckert - nur wieso?

[DeddyH]

Wie sieht es denn so aus?

Delphi-Quellcode:

type
  PStringArray = array of PString;

...

procedure CREATEVAR(Params:array of Pointer; var Vars, VarNames: PStringArray);
var
  I:integer;
begin
I:=-1;
repeat
  inc(I);
until(VarNames[I]^=string(Params[0]))or(I>High(VarNames));
if(I>High(VarNames))then
  begin
  SetLength({*}VarNames, Length(VarNames)+1); //{*} = Hier kommt der Fehler
  SetLength({*}Vars, Length(Vars)+1);         //{*} = Hier auch!
  GetMem(VarNames[I], Length(string(Params[0])));
  VarNames[I]^:=string(Params[0]);
  end;
end;