Einzeilige Textdatei

[olf]

Hallo Zusammen,

ich bräuchte Hilfe beim verwenden einer einzeiligen Textdatei.

Das ganze soll so aussehen:

An Stelle 1
-Textdatei falls sie nicht existiert erstellen
-Falls die Textdatei existiert Inhalt löschen
-Wert einer Variable in die Textdatei scheiben (int Zahl)

An Stelle 2
-Inhalt der Textdatei auslesen und in Variable schreiben

Da ich kaum Ahnung habe, das aber dringend für ein Schulprojekt brauche wäre ich für vollständigen Code den ich nur übernehmen muss sehr dankbar.

[Christian Marquardt]

Schau dir
FileExists
TStringList->SaveToFile
TStringList->LoadFromFile
und die Funktionen IntToStr & StrToInt

Der Stringlist ist es egal, wieviel Zeilen drin sind und mit IntToStr & StrToInt kannst du deinen int in einen String und zurück umwandeln, mit FileExists prüfen, ob die Datei existiert.

Da ich kaum Ahnung habe, das aber dringend für ein Schulprojekt brauche wäre ich für vollständigen Code den ich nur übernehmen muss sehr dankbar.

Wer sollte solch einen Code haben? Davon abgesehen -> wie erklärst du dann dein Projekt?

[olf]

Hätte ja sein können das das eine Kleinigkeit ist die ihr Profis mal eben so aus dem Handgelenk schüttelt

Erklären würde ich es halt damit das dieser Codeteil eben diese Variable mit Hilfe der Textdatei überprüft.

Die Basic Versio des Codes wäre in etwa folgende (evtl kanns ja jemand damit "übersetzen"):

open "o","test.txt",#1
print #1 kontrollvariable
close #1

bzw

open "i","test.txt",#2
input #2 kontrollvariable
close#2

[Christian Marquardt]

Hätte ja sein können das das eine Kleinigkeit ist die ihr Profis mal eben so aus dem Handgelenk schüttelt

Ehrlich???? -> ist es auch, aber was hast du dann davon?? Copy & Paste und nichts gelernt

[olf]

Naja wenn es so eine Kleinigkeit ist würde ich es wohl beim Kopieren & Anpassen verstehen.

[Christian Marquardt]

ok

int zahl;
TStringList *myliste=new TStringList();
if(FileExists("meinedatei.pop"))
{
myliste->LoadFromFile("meinedatei.pop");
zahl=StrToInt(myliste->Strings[0]);
}
else
{
zahl=3000;
myliste->Add(IntToStr(zahl));
myliste->SaveToFile("meinedatei.pop");
}
delete myliste;

[olf]

Okay vielen Dank!