Hallo,
Ich habe eine Frage bezüglich: Dateien binbär speichern.
Die binäre Datei soll dann nicht einfach von jedem Editor gelesen werden können wie zb Notepad.
Um einzelne Strings zu speichern und zu lesen habe ich bereits Code gefunden.
(Speichern:
Delphi-Quellcode:
var
FileHandle : Integer;
Version : Integer;
Period : Integer;
Digit : Integer;
c_copyright : String;
Symbol : String;
begin
Version := 400;
Period := 1;
Digit := 6;
c_copyright := '(C)opyright 2003, MetaQuotes Software Corp.';
Symbol := 'EURUSD';
FileHandle := FileCreate(Path);
FileWrite(FileHandle, Version, SizeOf(Version));
FileWrite(FileHandle, c_copyright, SizeOf(c_copyright));
FileWrite(FileHandle, Symbol, SizeOf(Symbol));
FileWrite(FileHandle, Period, SizeOf(Period));
FileWrite(FileHandle, Digit, SizeOf(Digit));
FileClose(FileHandle);
end;
Lesen:
Delphi-Quellcode:
var
FileHandle : Integer;
Version : Integer;
Period : Integer;
Digit : Integer;
c_copyright : String;
Symbol : String;
begin
FileHandle := FileOpen(Path, fmOpenRead);
FileRead(FileHandle, Version, SizeOf(Version));
FileRead(FileHandle, c_copyright, SizeOf(c_copyright));
FileRead(FileHandle, Symbol, SizeOf(Symbol));
FileRead(FileHandle, Period, SizeOf(Period));
FileRead(FileHandle, Digit, SizeOf(Digit));
FileClose(FileHandle);
end;
)
Aber wie sieht es aus wenn ich eine StringList habe, deren Länge sich ändern kann?