SRL Archive - NOTA

Thanks to MylesMadness and R1ch for help

{*******************************************************************************
procedure WriteLnArrayEx(AOS : TStringArray; ClrDbg: boolean);
By: All that is man
Description: WriteLn's out the given strings in the array. Can clear debug.
*******************************************************************************}
procedure WriteLnArrayEx(AOS : TStringArray; ClrDbg: boolean);
var
  I : Integer;

begin
  if ClrDbg then
    ClearDebug;
  for I:= 0 to High(AOS) do
    WriteLn(AOS[i]);
end;
{*******************************************************************************
procedure WritelnArray(aos: TStringArray);
By: All that is man
Description: WriteLnArrayEx with ClrDbg being false.
*******************************************************************************}
procedure WritelnArray(AOS: TStringArray);
begin
 WritelnArrayEx(AOS, false);
end;

I wouldn't make it a function, just saying

What do you mean?

{*******************************************************************************
function WritelnArrayEx(aos: array of string; cleardbug: boolean): boolean;
By: All that is man
Description: Writeln's out the given array and possible cleardebug
*******************************************************************************}
procedure WritelnArrayEx(aos: array of string; cleardbug: boolean);
var i: integer;
begin
  if cleardbug then cleardebug;
  for i := 0 to high(aos) do
    writeln(aos[i]);
end;

Right that's what I had, but thus disables

function WritelnArray(aos: array of string): boolean;
begin
  result := WritelnArrayEx(aos, false);
end;

from working

From: All that is man
Right that's what I had, but thus disables

function WritelnArray(aos: array of string): boolean;
begin
  result := WritelnArrayEx(aos, false);
end;

from working

procedure WritelnArray(aos: array of string);
begin
 WritelnArrayEx(aos, false);
end;

:facepalm: thanks

I like this. Simple but effective. Make it look a bit nicer, and voila!

{*******************************************************************************
procedure WriteLnArrayEx(AOS : TStringArray; ClrDbg: boolean);
By: All that is man
Description: WriteLn's out the given strings in the array. Can clear debug.
*******************************************************************************}
procedure WriteLnArrayEx(AOS : TStringArray; ClrDbg: boolean);
var
  I : Integer;

begin
  if ClrDbg then
    ClearDebug;
  for I:= 0 to High(AOS) do
    WriteLn(AOS[I]);
end;

See how much difference it makes to the presentation? I hope something like this gets committed.

Richard.