SRL Archive - Research & Development Lounge

Procedure WriteProggy(Scriptname, authour, version:String; Lines:TStringArray);
var
  I, II:integer;
begin
  For II:=1 to high(Lines)do
  If Max(I, Length(Lines[I])) = Length(Lines[I])then
    I:=Length(Lines[I]);
  If I < Length(Scriptname) then
    I:=Length(Scriptname);
  Writeln('/'+Replicate('-', I)+'\');
  Writeln('|'+Padr(ScriptName, I)+'|');
  Writeln('|'+Padr('By:'+authour, I)+'|');
  Writeln('|'+Padr('Version:'+version, I)+'|');
  Writeln('|'+Replicate('-', I)+'|');
  For II:=0 to high(Lines)do
    Writeln('|'+Padr(Lines[II], I)+'|');
  Writeln('\'+Replicate('-', I)+'/');
end;

Outputs a really nice proggy like this:

  WriteProggy('Ess miner', 'wizzup', '1.0', ['Ess mined:235', 'Banked:23']);

Makes this:

/-------------\
|Ess miner    |
|By:wizzup    |
|Version:1.0  |
|-------------|
|Ess mined:235|
|Banked:23    |
\-------------/

Quite good.

Is there a way you can center the name of the script? I think it'd look better that way :P. Beyond that, no suggestions here.

you just add spaces when you enter it :p and it's cool

If we use this Procedure, do we need to credit you?

Yes

:D, kind of a stupid question, was tired.

Why not use

function Replicate(c: Char; I: LongInt): string;

instead of PadK?

Add this to Misc please. Or Globals, Setup, or wherever it needs to be added.

From: Wizzup?
Why not use

function Replicate(c: Char; I: LongInt): string;

instead of PadK?

Did not know that function existed. Updated