integer-werte in eine datei speichern

[Affje]

hi

wie kann ich integer werte einfach in eine datei speichern, ohne die werte immer in eine listbox zu schieben???
wie lade ich die werte dann??

mfg affje

[Meflin]

Delphi-Quellcode:

inttostr(integer).savetofile(dateiname);

[nailor]

Such mal ein Tutorial zum Thema TIniFile !

[Christian Seehase]

Moin Affje,

z.b. mit einem TFileStream:

Delphi-Quellcode:

var
  fsOUT : TFileStream;
  iBuf  : integer;

begin
  fsOUT := TFileStream.Create('Pfad zur Datei',fmCreate or fmOpenReadWrite);
  try
    iBuf := 12352345;
    fsOUT.Write(iBuf,4);
  finally
    FreeAndNil(fsOUT);
  end;
end;

[Affje]

Zitat:

Zitat von Meflin

Delphi-Quellcode:

inttostr(integer).savetofile(dateiname);

geht das so einfach??

[Meflin]

jo das weis ich leider auch net so genau,
weil es nur ein string ist und ich jetzt
net auswendig weis, ob man den so einfach abspeichern kann!
einfach ausprobieren!

[Christian Seehase]

Moin Affje,

Zitat:

Zitat von Affje

geht das so einfach??

mit D5 nicht.

[Affje]

ich hab delphi 6 enterprise.
gehts damit?? und dann einfach strtoint(integerwert).loadfromfile('dateiname.txt' )??? als beispiel halt.

[Meflin]

wenns mit d5 nicht geht, gehts vermutlich mit d6 auch net!
aber so könnts gehen:

Delphi-Quellcode:

var int: TStringList;
begin
int[0] := inttostr(integer);
int.savetofile(dateiname);
end;

und zum laden

Delphi-Quellcode:

int.loadfromfile(dateiname);
integer := strtoint(int[0]);

[Dagon]

Zitat:

Zitat von Meflin

Delphi-Quellcode:

inttostr(integer).savetofile(dateiname);

-> mit delphi 7 gehts auch nicht!

Ich empfehle dir auch die TFileStream methode.

[Affje]

Zitat:

Zitat von Christian Seehase

Moin Affje,

z.b. mit einem TFileStream:

Delphi-Quellcode:

var
  fsOUT : TFileStream;
  iBuf  : integer;

begin
  fsOUT := TFileStream.Create('Pfad zur Datei',fmCreate or fmOpenReadWrite);
  try
    iBuf := 12352345;
    fsOUT.Write(iBuf,4);
  finally
    FreeAndNil(fsOUT);
  end;
end;

muss ich bei iBuf die zahlen 1235.. einsetzen, oder was muss ich da tun?? meine variable heisst leben, die ich speichern will, was muss ich dann tun?? sorry für die dummen fragen, aber ich kenne mich mit so zeug net so gut aus :? :?

[Tpercon]

Zitat:

Zitat von Meflin

wenns mit d5 nicht geht, gehts vermutlich mit d6 auch net!
aber so könnts gehen:

Delphi-Quellcode:

var int: TStringList;
begin
int[0] := inttostr(integer);
int.savetofile(dateiname);
end;

und zum laden

Delphi-Quellcode:

int.loadfromfile(dateiname);
integer := strtoint(int[0]);

So geht's bestimmt auch nicht! Die StringLsite muß zuerst erzeugt werden! Außerdem fügt man mit Add() etwas hinzu. Du greifst einfach auf das 1 Element der lIste zu, ohne das du weißt ob das existiert.... Gibt also schöne Fehlermeldungen.

[Christian Seehase]

Moin Affje,

iBuf steht für die Variable, die den zu speichernden Wert enthält.
Wenn die bei Dir leben heisst, musst Du nur iBuf gegen leben austauschen.

[Affje]

so nochmal ich:
und was bedeutet dann die 123...??? die integervariable leben in meinem spiel ändert sihc doch stöndig, dann kann ich ja keinen bestimmten wert reinspeichern.

[Christian Seehase]

Moin Affje,

das war ein Beispiel.

Du kannst das ja z.B. als Funktion/Prozedure ausführen:

Delphi-Quellcode:

procedure SaveIntegerToFile(const AsFilepath : string;const AiValue : integer);

var
  fsOUT : TFileStream;

begin
  fsOUT := TFileStream.Create(AsFilePath,fmCreate or fmOpenReadWrite);
  try
    fsOUT.Write(AiValue,4);
  finally
    FreeAndNil(fsOUT);
  end;
end;

[Affje]

das soll auf jeden fall ausgeführt werden, wenn man das prog beendet, also in dem falle dann form1.close...
und AiValue steht wieder für leben oder was?? ih blicke einfach GAR NIX :? :? :? :? :? :?

[Christian Seehase]

Moin Affje,

Zitat:

Zitat von Affje

AiValue steht wieder für leben oder was??

:shock:

klar. Das ist eine Prozedur, ein Dateipfad und ein integer Wert als Parameter übergeben werden.
Was Du jetzt als integer Wert übergibst, bleibt Dir überlassen.

[Affje]

so ich nochmal. ich hatte in der letzten zeit nicht so viel zeit zum ausprobieren.
aber mal ne frgae: kann ich die ganze sache nicht einfach mit nem savedialog regeln??

[Christian Seehase]

Moin Affje,

kaum.
Ein SaveDialog dient nur dazu, den Pfad zu einer Datei auswählen zu können. Er speichert nicht.

[Affje]

ich ich kriege die andere methode nicht zum laufen!!!! wie soll ich ne neue prozedur anlegen, wenn es ein form1.onclose ereignis geben soll, ich checks nicht.

[Affje]

kann mir mal jemand ein beispiel für eine form1.onclose prozedur geben???
wäre echt nett, da mich das so langsam echt aufregt und ich die lust verliere!
thx

[Christian Seehase]

Moin Affje,

Zitat:

Zitat von Affje

kann mir mal jemand ein beispiel für eine form1.onclose prozedur geben???

Und was hat das jetzt mit dem Problem zu tun?

Du hast eine vollständige Prozedure, die Dir einen Integerwert in eine Datei schreibt.
Die müsstest Du dann nur noch in der OnClose Prozedur mit den für Dich passenden Parametern aufrufen.
Diese Parameter wird hier keiner wissen können.

[Affje]

wie rufe ich zum beispiel von einer form1..... eine andere prozedur auf? ich bin ein absoluter newbie!

[Christian Seehase]

Moin Affje,

in der Hoffnung, dass das was mit Deinem ursprünglichen Problem zu tun hat:

Delphi-Quellcode:

procedure TForm1.WelcheProzedurAuchImmer;
begin
  WeitereProzedur;
end;

[Affje]

jep hast mir geholfen, thx.
aber eine frage habe ich noch, dann gebe ich hoffentlich endlich ruhe :)

ixch habe das beispiel zum tfilestream ausgedruck. wie lade ich das ganze zeugs wieder?? auf jeden fall muss es unter formcreate oder??

[Christian Seehase]

Moin Affje,

Zitat:

Zitat von Affje

wie lade ich das ganze zeugs wieder??

was meinst Du damit?

Vielleicht könntest Du die letzte Zeile in Deinem Posting noch einmal überarbeiten. ;-)

[Affje]

ja, ich meine, wie ich die integer werte wieder aus der datei lade, ich will sie ja nicht an spass an der freude in ne datei speichern :)

[Spezi1980]

Hallo,

Delphi-Quellcode:

procedure speichern(Datei : String; int : Integer);
Var fsOUT : TFileStream; 
begin
  try
    fsOUT := TFileStream.Create(Datei,fmCreate or fmOpenReadWrite);
    fsOUT.Write(int,sizeof(int));
    {hier könnte jetzt noch mehr folgen, was du speichern möchtest}
  finally 
    FreeAndNil(fsOUT); 
  end; 
end;

function laden(Datei : String): Integer;
Var fsOUT : TFileStream; iBuf : Integer; 
begin
  Result := 0;
  try
    fsOUT := TFileStream.Create(Datei,fmCreate or fmOpenReadWrite);
    fsOUT.read(iBuf,sizeof(int));
    result := iBuf;
    {hier könnte jetzt noch mehr folgen, was du speichern möchtest}
  finally 
    FreeAndNil(fsOUT); 
  end; 
end;

procedure Form1.Create(Sender:TObject)
begin
   Level := Laden('C:\Test.txt')
end;

procedure Form1.destroy(Sender:TObject)
begin
   Speichern('C:\Test.txt',Level)
end;

So oder so ähnlich müßte es gehen. (konnte ich nicht testen)

als sehr einfsche Alternative kannste Deine Werte auch in eine Stringliste speichern (z.b: Memo1.Lines.add(IntToStr(Level))) und dann die Stringliste speichern (über Memo1.Lines.Savetofile('C:\Test')). Dann holste dir die Stingliste bei Programmstart wieder (über Memo1.Lines.Loadfromfile('C:\Test')) und liest Deinen Integerwert wieder aus (Level := StrToIntDef(Memo1.Lines[0],0)).

Gruß

[Affje]

thx

[Affje]

ich habe mich umentschieden, ich mache es mit ner stringlist. mit nem memo. beim laden: welcher der werte sagt mir was über die linie??

strtointdef(memo1.lines[0],0)
was bedeuten die nullen, welche die zeile der meomlist??

[chris01]

Ja!!
Ein Memo ist sozusagen ein Array

gruß chris

[Affje]

und welche null von den beiden ist jetzt die zeile, was bedeutet die andere, was ist ein array?? :)) ich bin der absolute noob :(

[Affje]

noch ne frage: wie kann ich dioe dinger verschlüsseln??
muss aber nicht unbedingt sein.

[Christian Seehase]

Moin Affje,

aber Deine Hilfe Funktioniert doch? ;-)
Schau doch einfach mal nach was StrToIntDef macht.

[chris01]

Die in dem [] ist die Reihe!! des Memos

[Affje]

und die andere null ist??
aber danke, ihr habt mir echt sehr geholfen :)

[chris01]

Aus der Delphi-Hilfe:

Code:

Delphi-Syntax:

function StrToIntDef(const S: string; const Default: Integer): Integer;

C++ Syntax:

extern PACKAGE int __fastcall StrToIntDef(const AnsiString S; const int Default);

Beschreibung

StrToIntDef konvertiert konvertiert den String S, der eine Integer repräsentiert (in dezimaler oder hexadezimaler Form), in eine Zahl. Enthält S keine gültige Zahl, gibt StrToIntDef Default zurück.

[Affje]

ich bins nochmal :)
wie kann ich die test.txt vor dem speichern wieder löschen und dann neu erstellen??
thx

[chris01]

Wieso überschreibst du diese nicht einfach mit Rewrite?

:angle:

[Affje]

wie lautet da der befehl?