SRL Archive - Research & Development Lounge

Function GetDebuglines:Array of String;
var
  I:Integer;
begin
  SetArrayLength(Result, GetDebugLineCount)
  For I:=0 to GetDebugLineCount-1 do
    Result[I]:=GetDebugLine(I);
end;

Function GetDebuglines:Array of String;
var
  I:Integer;
begin
  For I:=0 to GetDebugLineCount do
    Result[I]:=GetDebugLine(I); //not result[0]
end;

im guessing you meant this?

Fixed the function… gave out of range errors