SRL Archive - Research & Development Lounge

here it is

save it as an include

and call it via scrolly(numberoflines);

Nice its possible to make scrolls

\\Batnas

Nice attempt, try to run this:

procedure ScrollDebug(Text: TStringArray; WaitBetweenLines, MaxLines: Integer);
var
  Textz: Integer;
begin
  ClearDebug;
  for Textz := 0 to High(Text) do
  begin
    if Textz >= MaxLines then DeleteDebugLine(0);
    WriteLn(Text[Textz]);
    Wait(WaitBetweenLines);
  end;
end;
  
begin
  ScrollDebug(['line 1', 'line 2', 'line 3', 'line 4', 'line 5', 'line 6',
  'line 7', 'line 8', 'line 9', 'line 10', 'line 11', 'line 12', 'line 13',
  'line 14', 'line 15', 'line 16', 'line 17'], RandomRange(200, 500), 5);
end.

I made it just for you :rolleyes:

nice only prob with that is i cant understand how it works could you show me
ty

Edit: Nvm i undestand it now needed to brush up my array knowledge =]