function mit unterschiedlichen parametern

[Robert_G]

Sollen nur zahlen rein geht es mit dem int-array.
Willst du alles mögliche übergeben könntest du ein sog. Open Array benutzen

Delphi-Quellcode:

program TestOpenArray;
{$APPTYPE CONSOLE}

procedure SomeFunction(params: array of const);
var
   i                 : Integer;
begin
   for i := Low(params) to High(params) do
      case params[i].VType of
         vtInteger:
            Writeln('   Integer', #9, params[i].vInteger);
         vtBoolean:
            Writeln('   Boolean', #9, params[i].vBoolean);
         vtChar:
            Writeln('      Char', #9, params[i].vChar);
         vtObject:
            Writeln('    Object', #9, params[i].vObject.ClassName);
         vtAnsiString:
            Writeln('AnsiString', #9, AnsiString(params[I].vAnsiString));
         vtPChar:
            Writeln('     PChar', #9, params[i].vPChar);
      end;
end;

var
   SomeString                 : string;
begin
   SomeString := 'Hallo';
   SomeFunction([1,
                 true,
                 #34,
                 SomeString,
                 TObject.Create(),
                 PChar('Miep')]);
end.

Die Ausgabe wäre dann:

Code:

   Integer   1
   Boolean   TRUE
      Char   "
AnsiString   Hallo
    Object   TObject
     PChar   Miep