writeln modifizieren

[mymuschy]

Liebes Forum,

ich hab ein altes pascal7 programm ausgegraben und möchte die writeln fct. modifizieren.

wie komm ich da dran?

Gruß

Stephan

[4toms]

Probiers mal mit "LESEN". Ist ne Standard-Hirnfunktion :shock:

Hilft fast immer etwas weiter :-D

[Aenogym]

@4toms: was soll das denn? :roll:

@mymuschy: ich glaube, writeln ist eine prozedur, die im compiler integriert ist. du kannst sie nicht modifizieren. aber was genau willst du denn damit machen? du kannst dir ja eine eigene writeln programmieren.

Aenogym

[phXql]

Zitat:

Zitat von 4toms

Probiers mal mit "LESEN". Ist ne Standard-Hirnfunktion :shock:

Hilft fast immer etwas weiter :-D

HA?

[4toms]

@Aenogym: Tschulligung! Aber im Thread der sinngemäß "Bildschirmfotos meines Arbeitsplatzes" kann ich z.Zt. noch kein Panoramafoto meines 1 € Jobs zur Verfügung stellen :-D

There goes the neighbourhood?

[Aenogym]

4toms, das hättest du auch per PN sagen können. ist jetzt nichts gegen dich, aber im DP Verhaltenskodex steht, dass man nicht zu sehr off-topic werden soll. bitte halte dich doch in zukunft dran ;)
denn irgendwie passt das nicht in diesen thread.

Aenoym

[alcaeus]

Zitat:

Zitat von mymuschy

ich hab ein altes pascal7 programm ausgegraben und möchte die writeln fct. modifizieren.

Willst du das Programm in Delphi oder noch in TP7 compilieren? Und was genau willst du an der writeln-Funktion aendern? Beim TP7 sind die Sourcen AFAIK nie dabei gewesen, also wirst du da nichts machen koennen. Und auch bei meinem Delphi7 Ent steht am Beginn der Unit "System" (in welcher writeln deklariert ist) nur folgender Hinweis:

Zitat:

Predefined constants, types, procedures, and functions (such as True, Integer, or Writeln) do not have actual declarations. Instead they are built into the compiler and are treated as if they were declared at the beginning of the System unit.

Was lernen wir daraus: writeln kannst du nicht aendern.

Greetz
alcaeus

[mymuschy]

sowas hab ich mir schon gedacht

@Aenogym: ich habe versucht "writeln()" wie folgt zu ersetzen

Delphi-Quellcode:

procedure writeln(var t:text;i:integer,s:string);
begin
.
..
...
end;

problem dabei war das writln einmal so: writeln(s);
und beim anderen mal so aufgerufen wird: writeln(t,i,s);
und der Compiler bringt deswegen eine Fehlermeldung.

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

[alcaeus]

Hallo mymuschy,

der einzige Weg den du hast, ist folgender:
Anstatt

Delphi-Quellcode:

writeln(t, i, s);

musst du folgendes schreiben:

Delphi-Quellcode:

writeln(t,IntToStr(i)+s);

Dies ist natürlich auf dein Beispiel mit den 3 Variablen bezogen ;)

Greetz
alcaeus

[jim_raynor]

Schaue dir mal Array of Const an. Damit kannst du zumindestens unterschiedliche Parameter übergeben. Allerdings wirst du nicht drum rum kommen jedes WriteLn mal anzufassen.

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