variable parameter

[Erwin Krijnen]

Hello,

I want to do the following:

var s : String;
i : Integer;
f : Real;
begin
test(Table1.FieldByName('TestString'),s);
test(Table1.FieldByName('TestInteger'),i);
test(Table1.FieldByName('TestReal'),f);
end;

procedure test(From : TField; var Variable : .....);
begin
case 'type of variable'of
'integer': begin ... end;
'float': begin ... end;
'string': begin ... end;
end;
end;

Can anyone help?

[LGFR]

"Erwin Krijnen" <ne...@nospawm.cifera.nl> wrote in message
news:OToi7.110672$z7.12...@dbsch1.home.nl...

Use overloaded procedures, for example:

{ interface declarations }
procedure Test(From: TField; var s: string); overload;
procedure Test(From: TField; var i: integer); overload;
procedure Test(From: TField; var f: double); overload;

{implementation definitions}
procedure Test(From: TField; var s: string);
begin
{ your code}
end;

procedure Test(From: TField; var i: integer);
begin
{ your code}
end;

procedure Test(From: TField; var f: double);
begin
{ your code}
end;

--

LGFR