Ausgabe in Datei und auf Terminal

[fht]

Hallo,

(wahrscheinlich trivial, aber ich finde nichts)

Ich schreibe einiges in ein Logfile, möchte aber etwas davon beim Programmlauf auf das Terminal ausgeben. Dabei möchte ich den Quelltext - z.B. eine Prozedur "Anzeige_Variablen" mit der Ausgabe von eingestellten Variablen - nicht mehrfach schreiben

Kann an das Teriminal über eine Dateivariable ansprechen?

Beispiel:
Anzeige_Variablen(LogFile);
Anzeige_Variablen(Terminal);


mfg Friedrich

[theo]

Ist das nicht das, was write, bzw. writeln macht, oder verstehe ich dich falsch?
https://www.freepascal.org/docs-html/rt ... write.html

[fht]

Wahrscheinlich war meine Frage viel zu knapp formuliert.

Ich denke mir in etwa folgendes

Es gibt eine Prozedur

Code: Alles auswählen

 PROCEDURE Anzeige_Variablen(f_log:text);   
            write(f_log, "Eingabedatei); writeln(f_log,f_ein_name);
            write(f_log, "Ausgabedatei); writeln(f_log,f_aus_name);
            .....
     END; {Kontrolle_Parameter}

Im Hauptprogramm steht dann

Code: Alles auswählen

  BEGIN
           IF f_log_name ='log' then 
               BEGIN
                     assign(f_log,'log.txt);
                     reset(f_log);
                END
                ELSE 
                     [i]<entsprechendes für die Ausgabe auf das Terminal>
                     <wie, weiss ich nicht> [/i]
                 END

Aufgerufen würde dann später :
Anzeige_Variablen(f_log);


Bislang fällt mir nur ein, die Prozedur Kontrolle_Parameter zweimal zu schreiben, das wäre aber sehr unschön

[jammernich]

@fht

es gibt viele Wege: deklariere doch einen Art Schalter (globale Variable) oder geh über einen weiteren Parameter für die Procedure

Code: Alles auswählen

// var ConsoleEnabled : Boolean = True; 

procedure Log(AMsg : String; AOnConsole: boolean = False);
begin
  //alternativ: über ConsoleEnabled
  if AOnConsole then Writeln(AMsg) else //AUSGABE Console
    writeln(textfile, AMsg);			   //AUSGABE DATEI
end; 

[Warf]

Ja, es gibt zum einen die Handles: StdOutputHandle, StdInputHandle und StdErrorHandle
Zusätzlich gibt es noch die File Variablen: Input, Output und ErrOutput

Ich arbeite lieber mit den Handles als mit den Textfiles weil Textfiles als "magic" type einige Eigenheiten haben über die ich nicht nachdenken will. Aber das kann zu inkosistenzen im interen TextRec der File Variablen führen, also mischen davon ist gefährlich. Entweder das eine oder das andere