virtual / override ??

[xineohp]

bidde schön:

Delphi-Quellcode:

interface
 
procedure ShowMessageHansa(r: real); overload;
procedure ShowMessageHansa(i: integer); overload;


implementation

procedure ShowMessageHansa(r: real);
begin
  Showmessage( Floattostr(r) );
end;

procedure ShowMessageHansa(i: integer);
begin
  Showmessage( inttostr(i) );
end;