AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Variablen in Textdateien speichern und abrufen

Variablen in Textdateien speichern und abrufen

Ein Thema von TheBluescreen · begonnen am 24. Nov 2003 · letzter Beitrag vom 24. Nov 2003
Antwort Antwort
TheBluescreen

Registriert seit: 7. Okt 2003
22 Beiträge
 
Delphi 7 Enterprise
 
#1

Variablen in Textdateien speichern und abrufen

  Alt 24. Nov 2003, 17:37
Hi!

Ich möchte bei einem klick auf einen Button eine Variable (integer) als externe Datei speichern. Der Name soll vordefiniert sein. Bei einem Klick auf einen anderen Button soll diese Variable wieder geladen und in einem Label angezeigt werden.

Ich habe mir bereits http://www.delphipraxis.net/internal...variable+datei angeguckt, aber dadraus bin ich auch nicht schlau geworden...

MfG

TheBluescreen
  Mit Zitat antworten Zitat
sharkx

Registriert seit: 24. Feb 2003
Ort: St. Ingbert
211 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Variablen in Textdateien speichern und abrufen

  Alt 24. Nov 2003, 17:44
Nutz Ini Files..

Ein Beispiel gibts in der Hilfe oder auch sicher hier im Board.
Programming today is a race between Software Engineers striving to build bigger and better idiot-proof Programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning!
  Mit Zitat antworten Zitat
Benutzerbild von r_kerber
r_kerber

Registriert seit: 11. Feb 2003
Ort: Trittau
3.538 Beiträge
 
Delphi XE Professional
 
#3

Re: Variablen in Textdateien speichern und abrufen

  Alt 24. Nov 2003, 17:45
Hallo TheBluescreen,

warum nimmst Du dafür nicht eine ini-Datei (Klasse TIniFile).
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
34.931 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

Re: Variablen in Textdateien speichern und abrufen

  Alt 24. Nov 2003, 17:51
Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

oder kurz und knapp.
Delphi-Quellcode:
Var Datei: File of Integer;
  Wert: Integer;

{speichern}
AssignFile(Datei, 'Datei.Name');
Rewrite(Datei);
Write(Datei, Wert);
CloseFile(Datei);

{lesen}
AssignFile(Datei, 'Datei.Name');
Reset(Datei);
Read(Datei, Wert);
CloseFile(Datei);
PS: kleiner bekommt keiner die Datei (nur 4 Byte)


Add:
Wenn es unbedingt eine Textdatei sein muß, geht das ähnlich:
Delphi-Quellcode:
Var Datei: TextFile;
  S: String;
  Wert: Integer;

{speichern}
AssignFile(Datei, 'Datei.Name');
Rewrite(Datei);
WriteLn(Datei, IntToStr(Wert));
CloseFile(Datei);

{lesen}
AssignFile(Datei, 'Datei.Name');
Reset(Datei);
ReadLn(Datei, S);
Wert := StrToInt(S);
CloseFile(Datei);

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
TheBluescreen

Registriert seit: 7. Okt 2003
22 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Variablen in Textdateien speichern und abrufen

  Alt 24. Nov 2003, 18:03
schonmal Danke an himitsu!

Das Speichern scheint einwandfrei zu funktionieren! Jedoch beim Laden der Datei erscheint der Fehler "Project Project1.exe raised exception class EInOutError with message 'I/O error 103'..." und er zeigt bei

Code:
procedure TForm1.Laden1Click(Sender: TObject);
begin
AssignFile(Datei, 'Datei.dat');
Read(Datei, Wert);
CloseFile(Datei);
n:=Wert;
end;
auf Read(Datei, Wert);
  Mit Zitat antworten Zitat
Benutzerbild von devnull
devnull

Registriert seit: 5. Okt 2003
362 Beiträge
 
Delphi 7 Personal
 
#6

Re: Variablen in Textdateien speichern und abrufen

  Alt 24. Nov 2003, 18:07
Hi BlueScreen,

Zitat:
Code:
procedure TForm1.Laden1Click(Sender: TObject);
begin
AssignFile(Datei, 'Datei.dat');
Read(Datei, Wert);
CloseFile(Datei);
n:=Wert;
end;
erweitere deinen Code doch mal um folgende zeilen:

Delphi-Quellcode:
procedure TForm1.Laden1Click(Sender: TObject);
var datei : textfile;
begin
  AssignFile(Datei, 'Datei.dat');
  // GANZ WICHTIG
  // öffnet datei zum lesen ,siehe hilfe
  {$I-}
    reset (datei);
  {$I+}
  // Hoffe, dass diesmal das so stimmt :angle:
  if IOResult <> 0 then RaiseLastOSError;
  Read(Datei, Wert);
  CloseFile(Datei);
  n:=Wert;
end;
devnull
-- Never change a running system --
  Mit Zitat antworten Zitat
TheBluescreen

Registriert seit: 7. Okt 2003
22 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Variablen in Textdateien speichern und abrufen

  Alt 24. Nov 2003, 18:12


juhu! Danke! Da hab ich wohl nicht gut abgeschrieben

Echt super Board!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
34.931 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#8

Re: Variablen in Textdateien speichern und abrufen

  Alt 24. Nov 2003, 18:32
Noch mal das, was devnull schon sagen wollte:
Delphi-Quellcode:
{lesen}
AssignFile(Datei, 'Datei.Name');
{$I-}  Reset(Datei); {$I+}
If IOResult = 0 Then Begin
  If FileSize(Datei) = 4 Then
    Read(Datei, Wert)
  Else Wert := 0; {*}
  CloseFile(Datei);
End Else Wert := 0; {dieser Wert wird verwendet, wenn die Datei }
                    {fehlerhaft oder nicht vorhanden ist}

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf