Hi Michael, I tested your proc but it don't want to ccompile .
program follows:
program test;
var a,b,c,d:integer;
res:double;
Procedure AddNums(Var Result : Double; Args : Array of integer);
Var
I : Integer;
begin
Result:=0;
For I:=0 to High(Args) do // High(args) is the last valid index.
Case Args[i].Vtype of // args[i] is of type TVarRec
VtInteger : Result:=Result+Args[ArgPos].VInteger;
// ... etc
end;
end;
begin
readln(a,b,c,d);
AddNums(vysledok,[a,b,c,d]);
end.
-
And one more question the header of procedure looks like addnums(var result,
and ind square brackets the other params but what if I want all params to be
in normal () like in writeln?
Thanx
Pianoman---- Original Message -----
From: <[EMAIL PROTECTED]>
To: <fpc-pascal@lists.freepascal.org>
Sent: Friday, September 02, 2005 3:28 PM
Subject: fpc-pascal Digest, Vol 13, Issue 1
> Send fpc-pascal mailing list submissions to
> fpc-pascal@lists.freepascal.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
> or, via email, send a message with subject or body 'help' to
> [EMAIL PROTECTED]
>
> You can reach the person managing the list at
> [EMAIL PROTECTED]
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of fpc-pascal digest..."
>
>
> Today's Topics:
>
> 1. Re: arbitrary number of parameters in procedure
> (Michael Van Canneyt)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Wed, 31 Aug 2005 22:57:30 +0200 (CEST)
> From: Michael Van Canneyt <[EMAIL PROTECTED]>
> Subject: Re: [fpc-pascal] arbitrary number of parameters in procedure
> To: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
> Message-ID: <[EMAIL PROTECTED]>
> Content-Type: TEXT/PLAIN; charset=US-ASCII
>
>
>
> On Wed, 31 Aug 2005, Pianoman wrote:
>
> > Hi, I have not well understood the docs concerning tvarrecs. How can I
> > create procedure which will accept arbitrary number of parameters?
> > To demonstrate what I want:
> > procedure addnums(a,b,c,xxxx of any types var result:sometype);
> > or writetoscreen(any number of parameters of given type. something like
> > write or readln procedures.
>
> Something like this:
>
> Procedure AddNums(Var Result : Double; Args : Array of const);
>
> Var
> I : Integer;
>
> begin
> Result:=0;
> For I:=0 to High(Args) do // High(args) is the last valid index.
> Case Args[i].Vtype of // args[i] is of type TVarRec
> VtInteger : Result:=Result+Args[ArgPos].VInteger;
> // ... etc
> end;
> end;
>
> Call like
>
> AddNums(MyDouble,[a,b,c,d]);
>
> And you're all done.
>
> Michael.
>
> ------------------------------
>
> _______________________________________________
> fpc-pascal maillist - fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
>
> End of fpc-pascal Digest, Vol 13, Issue 1
> *****************************************
>
>
> __________ Informacia od NOD32 1.1208 (20050902) __________
>
> Tato sprava bola preverena antivirusovym systemom NOD32.
> http://www.eset.sk
>
>
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
