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;