Wenn bei Function für Parameter kein Typ angegeben wird...

[ErazerZ]

bsp code:

Delphi-Quellcode:

function rechne(var z1, z2): integer;
begin
  result := integer(pinteger(z1)) + integer(pinteger(z2));
end;

function myshowmessage(var s1): integer;
begin
  result := messagebox(0, pchar(string(s1)), 'X', 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  z1, z2, erg: integer;
  s1: string;
begin
  z1 := 20;
  z2 := 40;
  erg := rechne(z1, z2);
  s1 := inttostr(erg);
  myshowmessage(s1);
end;