AssignFile mit Double

[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