AssignFile mit Double

[ByStones2]

Hi,

ich würde gern ein paar Zahlenwerte mit AssignFile speichern und lesen.
Dazu muss man in den Variablen etwas vereinbaren. Geht das so:

Delphi-Quellcode:

var
...
f: file of double

oder muss man es anders machen, wenn man Double-Zahlen speichern und lesen will ???
Oder kann man file of integer machen und nachher einfach double speichern ???

ByStones

[Klaus01]

ich würd Sie als Strings abspeichern, ist besser lesbar finde ich

Delphi-Quellcode:

var
  
  datei : TextFile;

Grüße
Klaus

[mkinzler]

Ich würde das mit einer normalen TextFile machen.

[Edit: zu langsam]

[ByStones2]

man soll den inhalt der datei halt nicht lesen können...

@Klaus01: Ich schätze mal du weißt um welches programm es sich handelt ...
Ich will halt, dass die Felderanzahl und das Geld, usw. erhalten bleibt, wenn man das Programm schließt und wieder neu
startet ...

Mit TextFiles wie kann man da lesen, schreiben , usw...

[mkinzler]

Dann würde ich die Werte verschlüsselt in eine Textdatei schreiben.

[ByStones2]

Zitat:

Zitat von mkinzler

Dann würde ich die Werte verschlüsselt in eine Textdatei schreiben.

und wie geht das ?ein
Tutorial wäre nützlich, mit speichern und laedn hab ich nichts am hut !!!

[Klaus01]

dann würde ich auf ein Inifile zurückgreifen
schau mal in der Hilfe bei TIniFile.

Wenn es aber eine normale Datei sein soll
würd ich bei Textfile bleiben, da es einfacher auszulesen ist
oder auf eine Datei mit record Struktur zurückgreifen.


WriteLn(datei,'deinString');
ReadLn(datei,'deinString');

Grüße
Klaus

[ByStones2]

inifile kann ich, bloß das kann man lesen und leicht verändern !!!
Noch ne frage zu inifiles, wie macht man, dass die im gleichen ordner wie die exe gespeichert werden und nicht unter C:\WINDOWS\xxx.ini ???

[mkinzler]

Zitat:

und wie geht das ?

DEC, LockBox, ...:

[Klaus01]

Zitat:

Noch ne frage zu inifiles, wie macht man, dass die im gleichen ordner wie die exe gespeichert werden und nicht unter C:\WINDOWS\xxx.ini ???

bei Anlegen/ Öffnen sagen wo die Datei ist.

IniFile := TIniFile.create(extractFilePath(Application.exenam e)+iniFileName);

Auch in der IniDatei kannst Du die Daten verschlüsselt, verschleiert ablegen.

Bevor Du die Werte hineinschreibst, kannst Du den String z.B. zeichenweise mit XOR codieren...
.. eim Auslesen dann wieder mit XOR codieren und Du hast Deinen alten Wert zurück.
Das ist zwar nur eine sehr einfache "Verschlüsselung", aber besser als nichts.

Grüße
Klaus

[ByStones2]

hab ich rundergladen entpackt und jetzt ???
:wiejetzt: :wiejetzt:

@Klaus01:
was soll XOR codieren sein und wie geht das ???

[ByStones2]

Zitat:

Zitat von Klaus01

Zitat:

Noch ne frage zu inifiles, wie macht man, dass die im gleichen ordner wie die exe gespeichert werden und nicht unter C:\WINDOWS\xxx.ini ???

bei Anlegen/ Öffnen sagen wo die Datei ist.

IniFile := TIniFile.create(extractFilePath(Application.exenam e)+iniFileName);

Auch in der IniDatei kannst Du die Daten verschlüsselt, verschleiert ablegen.

Bevor Du die Werte hineinschreibst, kannst Du den String z.B. zeichenweise mit XOR codieren...
.. eim Auslesen dann wieder mit XOR codieren und Du hast Deinen alten Wert zurück.
Das ist zwar nur eine sehr einfache "Verschlüsselung", aber besser als nichts.

Grüße
Klaus

bei mir sieht das so aus, will aber nciht gehen:

Delphi-Quellcode:

Save := TIniFile.create(extractFilePath(Application.Tycoon)+'LT-BbLog.ini');

[Klaus01]

Delphi-Quellcode:

var

  IniFile : TIniFile

IniFile := TIniFile(ExtractFilePath(Application.ExeName)+'LT-BbLog.ini');

TIniFile.WriteString(<section>,<feld>,<value>);
TIniFile.ReadString(<section>,<feld>,<default>);

In der Hilfe sind dazu auch Beispiele aufgeführt.

Grüße
Klaus

[ByStones2]

jetzt spinnt mein delphi !!!
ich kann keine objekte mehr reinsetzen, nichts geht mehr !!!

[ByStones2]

Zitat:

Zitat von Klaus01

Delphi-Quellcode:

var

  IniFile : TIniFile

IniFile := TIniFile(ExtractFilePath(Application.ExeName)+'LT-BbLog.ini');

TIniFile.WriteString(<section>,<feld>,<value>);
TIniFile.ReadString(<section>,<feld>,<default>);

In der Hilfe sind dazu auch Beispiele aufgeführt.

Grüße
Klaus

das kann ich schon alles, ich weiß nur nicht wie man die sachen verschlüsselt !!
Noch mal was ganz anderes:
Wie kann man Scrollbars ausschalten ???
EDIT: Scrollsbars hat sich gelöst !!!

[Klaus01]

Zitat:

das kann ich schon alles, ich weiß nur nicht wie man die sachen verschlüsselt !!

dann schau wir mal:

Delphi-Quellcode:

var
  s, crypt:String;

for i:=1 to lenght(string)-1 do
  begin
    cryp[i] := chr(ord(s[i] XOR 56);
  end;

Grüße
Klaus