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.