writeln modifizieren

[maximov]

Zitat:

Zitat von mymuschy

Hintergrund ist folgender:

ich habe ein programm mit mehreren tausend Zeilen möchte die Grafikausgabe nun (leider) im nachhinein per übergabeparameter ein und ausschalten ohne vor jedes writeln eine abfrage bauen zu müssen

Versuch doch die standardausagabe irgendwie umzuleiten. Bin mir nicht sicher, weiss nur dass es evtl. kompliziert ist. Aber das wäre ein globaler ansatz.

[sakura]

Die writeln Funktion selbst lässt sich nicht ändern, da diese auf der Compiler-Magic basiert :zwinker: Da hilft es nur eine neue Funktion zu erstellen, welche alle möglichen Fälle abfängt :shock:

...:cat:...

[SubData]

Kann man die Funktion nich einfach überladen?

Edit: Also bei Delphi 7 is das kein Problem....
Funktion einfach neu anlegen und in der Funktion dann Integer Werte umwandeln und an das echte writeln übergeben :>

[alcaeus]

Zitat:

Zitat von SubData

Kann man die Funktion nich einfach überladen?

Anscheinend nicht, denn das hier:

Delphi-Quellcode:

procedure writeln(s: String; i: Integer); overload;
begin
  writeln(s+IntToStr(i));
end;

schlägt beim Compilieren fehl (es gibt keine überladene Version von writeln die mit diesen Parametern aufgerufen werden kann). Du würdest also direkt writeln überschreiben...

Greetz
alcaeus

[SubData]

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:

Delphi-Quellcode:

  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 ^^