zahl in text-datei speichern und wieder draufzugreifen?

[maxmax]

Kann mir ganz kurz jemand sagen, wie man eine Zahl in einer Textdatei, die ich vorher erstellt habe, abspeichert, und wie man wieder drauf zugreift??
danke...

[maxmax]

Bitte helft mir! Nur ein kleines Beispiel und ich wäre zufrieden :-D

[Klaus01]

Wo soll die Zahl denn in der TextDatei stehen?
Immer am Ende, immer am Anfang?

Beispiel.

Delphi-Quellcode:

var
  sl: TStringList;

// schreiben
sl:=TStringList.create;
sl.loadfromFile('DeinDatei');
sl.add(intToStr(DeinZahl);
sl.saveToFile('DeineDatei');

// lesen
sl.loadfromFile('DeineDatei');
DeinZahl:=StrToInt(sl[sl.count -1];

FreeAndNil(sl);

Grüße
Klaus

[Dragonclaw]

Beispiel 2:

Delphi-Quellcode:

{liest alles aus der Datei  "C:\file.txt" aus, und packt das in Memo1}
var t : textfile;
     s : string;
begin
  assignfile(t,'c:\file.txt');
  reset(t);
  while not eof(t) do
  begin
    readln(t,s);
    memo1.lines.add(s);
  end;
  closefile(t);
end;

Delphi-Quellcode:

{Hängt den String "Text" an die Datei "C:\file.txt"}
var t : textfile;
begin
  assignfile(t,'c:\file.txt');
  append(t);
  writeln(t,'Text');
  closefile(t);
end;

[maxmax]

die textdatei soll nur aus dieser zahl bestehen... also ist es doch egal ob anfang oder ende, oder?
ich will, das die zahl bei jedem abspeichern überschrieben wird! wie geht das?

[stifflersmom]

Dein Zauberwort heißt: rewrite

Also

Delphi-Quellcode:

AssignFile(F,'deinedatei.txt');
rewrite(F);
Writeln(F,'DeinWert');
CloseFile(F);

Moin

[s-off]

Gegenfrage:

Was ist das Ziel? Wäre nicht vielleicht der Gebrauch einer Ini-Datei für Dein Vorhaben geeigneter?

[Klaus01]

Genau, dann ist es egal bzw. gleich den Anfang ist dann gleich Ende.

Überschreiben:

Das sollte so gehen:

Delphi-Quellcode:

var 
  sl: TStringList; 

// schreiben 
sl:=TStringList.create; 
sl.loadfromFile('DeinDatei'); 
sl.sl[sl.count -1]:=intToStr(DeinZahl); 
sl.saveToFile('DeineDatei'); 

// lesen 
sl.loadfromFile('DeineDatei'); 
DeinZahl:=StrToInt(sl[sl.count -1]); 

FreeAndNil(sl);

oder so:

Delphi-Quellcode:

var t : textfile; 
begin 
  assignfile(t,'c:\file.txt'); 
  rewrite(t); 
  writeln(t,'Text'); 
  closefile(t); 
end;

Grüße
Klaus

[maxmax]

Zitat:

Zitat von s-off

Gegenfrage:

Was ist das Ziel? Wäre nicht vielleicht der Gebrauch einer Ini-Datei für Dein Vorhaben geeigneter?

den punktestand abzuspeichern!

danke für eure beispiele...

[s-off]

Zitat:

Zitat von maxmax

Zitat:

Zitat von s-off

Gegenfrage:

Was ist das Ziel? Wäre nicht vielleicht der Gebrauch einer Ini-Datei für Dein Vorhaben geeigneter?

den punktestand abzuspeichern!

danke für eure beispiele...

Dann würde ich vielleicht wirklich zur Ini-Datei tendieren.
Denn irgendwann möchtest Du vielleicht nicht mehr nur den Punktestand abspeichern, sondern auch noch den Namen des Spielers, wann er das Spiel zuletzt gestartet hat, und so weiter.

Dieses ist natürlich alles über eine einfache Textdatei möglich. Komfortabler wird es aber in jedem Fall mit einer Ini-Datei!