Textfiles Verständnisfrage & Frage

[Grayknife]

Hallo DPler,
Ich möchte gerne eine Variable mit Integerwert, also zb. einfach 14 extern in einer Textdatei speichern. Dazu habe ich folgende Prozedur entwickelt:

Delphi-Quellcode:

procedure TForm1.Speichern;
 var Speicher: Textfile;
     GesH:Integer;
begin

 Try
   Reset(Speicher,'Speicher.txt');
   Readln(Speicher,GesH);
   GesZ:=GesH + GesZ;
 Except
   AssignFile(Speicher,'Speicher.txt');
 End;
 Rewrite(Speicher);
 Writeln(Speicher,GesZ);
 CloseFile(SPeicher);
end;

Dabei soll erst geschaut werden ob es die Datei schon gibt. Wenn ja wird in der Datei der Integerwert rausgelesen und in GesH gespeichert. Anschließend wird GesZ mit GesH addiert und in GesZ gespeichert.
Wenn keine datei mit dem Namen Speicher.txt existiert soll in der except schleife eine erstellt werden. Anschließend wird der Zeiger auf ganz oben gestellt, das neue GesZ bzw. das existierende in der 1. zeile gespeichert, und dann geschlossen.

Sind meine Überlegungen richtig?
denn es gibt 1 komischen Fehler:
1. Wenn keine Datei existiert, wird mir trotzdem ein Fehler angezeigt, das die Datei nicht gefunden wurde, aber eigentlich müsste doch durch AssignFile eine erstellt werden?

[Uwe Raabe]

Welche Delphi-Version verwendest du?

[himitsu]

FreePascal/Lazarus?
Delphi kennt kein derartigen Reset-Befehl (in der System.pas)

Zitat:

Wenn keine Datei existiert, wird mir trotzdem ein Fehler angezeigt

Wer zeigt den Fehler?

• Welche Codezeile?
• Der Debugger und/oder das Programm?

Fehler/Denkfehler:

• AssignFile erstellt nichts, es initialisiert nur die Datei-Variable.
  Rewrite, Reset, Append öffnen/erstellen die Datei.
  

  Zitat:

  aber eigentlich müsste doch durch AssignFile eine erstellt werden

  Du hast bestimmt nicht die OH gelesen.
• Man steuert nicht mit "Ausnahmen" den normalen Programmfluss.
  FileExists, IOResult oder Dergleichen?
• Wenn die Datei von Reset geöffent wurde, wer schließt die dann wieder, bevor die nächten Dateioperationen (AssignFile/Rewrite) los gehn?

[Luckie]

Interessant wäre auch: Wo landet die Datei ohne Pfad Angabe?

[Uwe Raabe]

Zitat von himitsu:

FreePascal/Lazarus?
Delphi kennt kein derartigen Reset-Befehl (in der System.pas)

Genau! Interessant ist aber die Fehlermeldung des Compilers (XE7):

Zitat:

E2158 System-Unit veraltet oder beschädigt: '@assign' fehlt

[Klaus01]

Hallo,

Reset gibt es auch in Delphi.

Allerdings muss auch ein AssignFile durchgeführt werden, wenn die Datei mit Reset geöffnet wird.
Beispiel hier.

Grüße
Klaus

[Sir Rufo]

@Klaus01

Niemand hat behauptet, dass es Reset in Delphi nicht gibt.

himitsu hat gesagt, dass es allerdings kein Reset gibt, dass so Reset( Speicher, 'Speicher.txt' ); aufgerufen werden kann.

[Perlsau]

Zitat von Grayknife:

Ich möchte gerne eine Variable mit Integerwert, also zb. einfach 14 extern in einer Textdatei speichern.

Ein bißchen Grundlagenwissen kann nicht schaden:

• Assignfile: Anfänger versteht das Konzept nicht.
• Wie fange ich an?
• E-Book “Delphi-Starter”
• Easy Delphi Helper (EDH)
• Feststellen, ob eine Datei existiert
• Ist eine Datei in Benutzung
• Laden und Speichern von Texten aus Memofeldern in Dateien

[Grayknife]

@Perlsau, ja Grundlagenwissen ist immer guuuut (y)

@SMO, erstmal vielen Dank, für die ausführliche Erklärung! Tjaa, warum sich plagen.. -.-'' Da wir nichts anderes gelernt haben in der Schule Und wenn ich etwas nicht verstehe, nehme ich das, was ich verstehe siehe z.b.: http://forum.giga.de/web-entwicklung...speichern.html Und was du jetzt vorschlägst, schaut so ähnlich aus wie die letzte Möglichkeit aus dem Link. Dann schaue ich mir jetzt deinen Vorschlag genauer an unter dem Schlagwort TStringstream, ok? Und .ini-Dateien sind das nicht verschlüsselte Dateien oder sowas? . In der Schule haben wir gelernt, "Wenn du ein Programm schreiben möchtest, öffne zuerst Delphi und klicke dann auf Datei->Neu->VCL Formularanwendung". Aber wie ich jetzt rauslese, gibt es vieeel mehr Möglichkeiten mit Delphi?!

[Perlsau]

Zitat von Grayknife:

Aber wie ich jetzt rauslese, gibt es vieeel mehr Möglichkeiten mit Delphi?!

In der Tat

Am besten du machst es mit einer Stringliste, wobei du DateiName (String) selber festlegen mußt:

Delphi-Quellcode:

Procedure TForm1.Speichern;
Var
  Liste : TStringList;
begin
  Liste := TStringList.Create;
  Try
    Liste.Append(Edit1.Text);
    Liste.SaveToFile(DateiName);
  Finally
    Liste.Free;
  End;
end;