SRL Archive - SRL Archives

This is very usefull… especially when debugging scripts with coordinates.. It writes in anything, so there is no need to do inttostr or booltostr.

procedure Write(Variants: Array of Variant);
var
  i: integer;
  Str: String;
begin
  Str := '';
  for i := 0 to (getarraylength(Variants) - 1) do
  begin
    Str := Str + Variants[i];
  end
  Writeln(Str);
end;

To Use:
It takes an array so put it in square brackets, seperated by comas. For example:

Write(['hello ', 54, ' Sup?', n, ' fjdksf ', True]);

Oops the title was supposed to be Write, not Writeln..

Don't they already have soemthing like this? Well, sections such as proggy reports this would kick ass :) thanks.

I loves it!

EDIT: I loves it times infinity!

From: Smartzkid
I loves it!

EDIT: I loves it times infinity!

lol, TY

Heh, I considered to make the exact same thing a few weeks ago ^^
Might write one and add it to SCAR
You could shorten it down a bit though, and for scar divi use length instead of getarraylength

procedure Write(Variants: array of Variant);
var
  i: Integer;
  Str: string;
begin
  for i := 0 to Length(Variants) - 1 do
    Str := Str + Variants[i];
  Writeln(Str);
end;

That is very leet, indeed.

I will most definitely be using this, thanks!

Doesn't Scar have a format function?