Delphi-Quellcode:
private
function writeln(x1, x2, x3: Variant): Boolean;
[...]
function TServer.writeln(x1, x2, x3: Variant): Boolean;
begin
system.Writeln(x1 + x2 + x3);
end;
Aufruf:
writeln('blah', 33, 'test');
geht...
Edit1: Tippfehler...
Edit2: Ich meinte mit überladen auch nicht den Overload Constructor sondern einfach ne neue Funktion, die dann die System.Writeln aufruft ^^