SRL Archive - Research & Development Lounge

Well, I was tired of writing stuff like timetowait:=timetowait + 1; or something similar to that, so I made this very simple procedure.

procedure var2(var i: integer);
begin
  i:= i + 1;
end;

I wanted to make it as small as possible, so I gave it a small name. It simply adds 1 to the variable.

remove var from the parameter and have it return an integer. I will make something…

function var2(i : integer): Integer;
begin
result := i + 1;
end;

Not sure if that is right but that is kinda like what I am combineing between what I know and Delphi.

[php]
inc(i);
[/php]

:p…I guess I should look in the scar manual more :D

never knew about that. Thanks for telling me star!

I should look in the manual more, too. I just saw how much info it has a few days ago.

Also, to Element about his function, yours doesn't change i, it only gives the value of i + 1.

Umm, I := Var2(I); would work.

ya, but that defeats the purpose of what he was doing.

MyInteger := var2(MyInteger);

Or use starblasters.

From: The Element
MyInteger := var2(MyInteger);

Or use starblasters.

the whole point of him making this was so that he didnt have to type so much… and with yours, you still have to type almost as much, or in some cases more.. so he would want to use either his or starblasters

however something more useful might be:

procedure var2(Variable, Amount: integer);
begin
  Variable:= Variable + Amount;
end;

then its not something that already exists, i think, and it can be used for more

Then use starblasters.

It's not actually starblaster's procedure (at least I don't think so)
All it does is adds one to your variable…
Here's how to test it:

program New;
var
  i:Integer;
begin
  i:=0
  ClearDebug;
  Repeat
    Writeln('The variable''i''=' +IntToStr(i));
    Inc(i);
  Until(i=11);
end.

No it's not my procedure, i take no credit for it, its already built into SCAR.

[php]
Inc(var);
Dec(var);
[/php]

are the 2 commands you want for the short way of

[php]
var := var + 1;
var := var -1;
[/php]

I was just thanking you for showing me them.

Star like, knows everything 'bout scar. He = pwnz. But me = more pwnz :p

I dunno, those asians are pretty difficult to out-auto, legend has it they don't need sleep or food…~tim0suprem0

Lmao

From: dvdcrayola
the whole point of him making this was so that he didnt have to type so much… and with yours, you still have to type almost as much, or in some cases more.. so he would want to use either his or starblasters

however something more useful might be:

procedure var2(Variable, Amount: integer);
begin
  Variable:= Variable + Amount;
end;

then its not something that already exists, i think, and it can be used for more

wouldn't work make it say var2(var Variable: integer; amount: integer);

um.. why? you dont usually have to put var right?

No. Thats just to show an output.

Heres a better one.

Function Incr(Variable, By: Integer): Integer;
 begin;
  Result:= Variable + By;
  Variable:= Variable + By;
 end;

You could use it two ways:

Incr(Variable1, 3);
WriteLn(StrToInt(Variable1));

or

WriteLn(StrToInt(Incr(Variable1, 3)));

IncEx(var Number: Integer; nInc: Integer);
DecEx(var Number: Integer; nDec: Integer);

Ouch. I need an icepack, because I was just BURNED!

From: r0b0t1
Ouch. I need an icepack, because I was just BURNED!

haha, there are a lot of things built into scar that i didnt know about

You know, you could just use sum…

i:=Sum(i,1);

or you could just use inc(i) :p