Bit für Bit in eine Datei schreiben (und lesen)

[qb-tim]

Hi,

gibt es einen leichten Weg eine Datei bitweise zu speichern. Ich möchte von meinem Interface alle TObjects.Checked als 0 oder 1 speichern (Checked = False / True). Da der Interface beim Gebrauch "wächst", ist die Menge an TRadioButtons und TCheckBoxes theoretisch unendlich.

Ich stelle mir das irgendwie so vor:

Delphi-Quellcode:

procedure WriteBitFile(Bits, Filename: String);
var i: Integer;
begin
  // Datei Initialisieren;
  for i := 1 to Length(Bits) do
    if Bits[i] = '0' then
      // Eine Null schreiben
    else
      // Eine Eins schreiben;
  // Datei Freigeben;
end;

[stoxx]

das würde man dafür nicht benötigen, Bitweises speichern braucht man eigentlich nur für Packprogramme usw.
In Deinem Fall rät es sich an, ein File von einem eigenem Datentyp zu erzeugen.

Wenn Du aber mal ganz schnell NUR Deinen String speichern magst, .. ist zwar quick and dirty

aber

Delphi-Quellcode:

with TStringList.create do begin

  text := MeinString;
  SaveToFile('c:\test.txt');
  free;
end;

wenn Du noch mehr solche Sachen speichern magst, dann schau Dir mal die Fileoperationen von Delphi an ...