2017-05-18 1 views

Antwort

-1

Sie sollten über "Dateiverwaltung in Pascal" lesen. Wie auch immer, deklarieren Sie eine Variable vom Typ Text-Datei:

var 
    outputfile : TextFile; 

dann Assign(), um es Ihren Namen der Wahl (maxim.out), neu zu schreiben() die Datei, verwendet writeln() hinein zu schreiben, und schließlich Closefile() es.

Sie können ein komplettes Beispielprogramm finden Sie hier: http://wiki.freepascal.org/File_Handling_In_Pascal

+0

Ich kann nicht sehen, wie dies die Frage beantwortet – tofro

+0

@tofro Ich verstehe nicht, aber Sie können mir erklären, was los ist. – linuxfan

+0

@tofro: Ich kann nicht sehen, warum du es nicht sehen kannst. Dies beantwortet die Frage, obwohl ein wenig mehr Code wäre nett gewesen. –

0

Sie können den Wert schreiben (vorausgesetzt, es ist eine ganze Zahl, und es hat den Namen, sagen wir, yourValue) mit:

var 
    maximFile: Text; 

... 

    Assign(maximFile, 'maxim.out'); // link the name to the Text variable 
    Rewrite(maximFile);    // open it for writing 
    Writeln(maximFile, yourValue); // write the value as a line of its own 
    Close(maximFile);    // close the file 

Sie können dann lesen sie später den Wert wieder auf mit:

Assign(maximFile, 'maxim.out'); 
    Reset(maximFile); 
    Readln(maximFile, yourValue); 
    Close(maximFile); 

ich keinen Fehler hinzugefügt haben Behandlung (zB wenn die Datei nicht gefunden werden kann, oder ob es nur lesbar, oder e mpty oder ...). Je nach Einstellung erfolgt dies entweder mit Ausnahmen oder mit IOResult Werten. Lesen Sie die Dokumentation dazu. Es sollte Beispiele in den Dokumenten geben.

+0

Ich verstehe den Downvote nicht ganz. Die Frage ist, wie man einen Wert in einer Datei namens maxim.out speichert. ISTM, dass dies eine gültige Antwort ist. –

+0

Wahrscheinlich gibt es jemanden, der nicht versteht. Ich habe 1 gemacht. Ich entschied mich, mit wenig Information zu antworten, weil die Frage auch wenig Information enthielt. Ich habe es vorgezogen, das gleiche Verhalten beizubehalten - hilfreicher ... ;-) – linuxfan

+0

@linuxfan: Einer der upvotes auf deiner Antwort ist von mir ... :-) –

Verwandte Themen