SRL Archive - SRL Archives

During testing stuff everyone likes to print debug output, and for me its a pain writing IntToStr and FloatToStr all the time, and diplaying booleans is just a pain, so I wrote this. Feel free to extend it with other types, like TDateTime if its too your liking.

procedure println(line: Variant);
begin
  case varType(line) of
    256: writeln(line); //String
    11:  if line then writeln('True') else writeln('False') //Boolean
    3:   writeln(inttostr(line)); //Integer
    5:   writeln(floattostr(line)); //Float
  else
    writeln('Unknown Type: ' + inttostr(varType(line)));
  end;
end;

begin
  println('Hi');
  println(42);
  println(3.14);
  println(true);
end.

Lol, you created almost the same thing as Danrox.
http://www.srl-forums.com/forum/writeln-t9613.html
Pretty usefull though.

procedure PrintLn(line: Variant);
begin
  try
    writeln(line);
  except
  end;
end;

Variants get converted automatically.
Ben got owned ;)

Well thats funny ;) Oh well…

Lol Ben thinks his is longer and must be better:p

I still say it's retarded not to have a format function. It looks more professional plus it's easier to use.

Writeln('BlaBlaBla' + IntToStr(4532) + FloatToStr(23455.2345));

Vs.

Writeln(Format('BlaBlaBla%d%f', [4532, 23455.2345]));

or even overload Writeln to be like printf.

Writeln('BlaBlaBla%d%f', [4532, 23455.2345]);

Come on Freddy;)

From: bullzeye95

procedure PrintLn(line: Variant);
begin
  try
    writeln(line);
  except
  end;
end;

Variants get converted automatically.

ROFL Nice one, i knew knew that.
OWNED! :P
<3 Ben

I might be mistaken but this depends on the order things are added to the intreptor?

Thus a SCAR update may break this?

Nope. WriteLn(''); Uses strings. It doesn't matter if a number comes first, you still must turn it into a string.

But updating SCAR to make different variables interchangeable is a bad idea.

Ben, you're still a noob…..

From: Bebemycat2
Ben, you're still a noob…..

I could have deleted it and pretended that it never happened :sasmokin: But anyway, i assume this works in divi, cause it dosen't work in 2.03 ;):

begin
writeln(123);
end.

That doesn't work in any SCAR version. You have to convert it into a string.

Ben got owned… again ;)
For the sake of your reputation, you should delete this. :p

From: bullzeye95
That doesn't work in any SCAR version. You have to convert it into a string.

Ben got owned… again ;)
For the sake of your reputation, you should delete this. :p

How did i get owned at all if that dosen't work :p Thats what my procedure does lol.

You had writeln not println. I'm confused!

program New;
var something:variant;
begin
something := 1234;
Writeln(something);
end.

There

That's what bullzeye had in a procedure :p

Ben, you're still a noob…..

Thats dangerous :D

But it is pretty funny :)

No one agrees with me?

I don't really mind WriteLn as it is.
Format function could be nice..
But if you really need it (now), why not use this?

From: n3ss3s
Thats dangerous :D

But it is pretty funny :)

its no way dangerous because ben wont do anything to bebe XD