Hallo,<BR>
ich habe ein Programm mit ca. 350 Editfeldern und ComboBoxen. Dazu noch mal 300 Checkboxen. Der Inhalt der Felder und Zustand der Checkboxen soll abspeicherbar sein. Dazu habe ich eine Variable (CFG) vom Typ record benutzt.
type TConfig = record<BR>
XXX:string[255];<BR>
YYY:boolean;<BR>
usw.<BR>
end;
var
f1:file of TConfig;<BR>
CFG:TConfig;
In die Variable schreibe ich mit
procedure WriteCFG;<BR>
begin<BR>
with CFG, FormMain do<BR>
begin<BR>
XXX:=EditXXX.Text;<BR>
YYY:=CheckBoxYYY.Checked;<BR>
usw.<BR>
end;
und speichere die Variable CFG in eine Datei mit
AssignFile(f1, Dateiname);<BR>
Rewrite(f1);<BR>
Write(f1, CFG);<BR>
CloseFile(f1);
Die Datei öffne ich und lese die CFG Variable aus mit
AssignFile(f1, FileName);<BR>
Reset(f1);<BR>
Read(f1, CFG);<BR>
CloseFile(f1);
Aus der Variable lese ich die Feldinhalte wieder in die Felder ein mit
procedure ReadCFG;<BR>
begin<BR>
with CFG, FormMain do<BR>
begin<BR>
EditXXX.Text := XXX;<BR>
EditYYY.Text := YYY;<BR>
usw.
Alles funktioniert auch fast. Aber ab 280 Felder wird nicht alles wieder zurückgeschrieben.
Jetzt meine Frage:
Gibt es da irgendeine Groessenbeschraenkung fuer die record Variable? Und speichert man sowas ueberhaupt in record Variablen ab? Ich will ja nicht mehrere Zustaende in einer Datei abspeichern wie in einer Datenbank, sondern nur einen Datensatz. Der naechste Datensatz soll in einer anderen Datei abgespeichert werden.
Gruss Matthias
<BR>
ich habe ein Programm mit ca. 350 Editfeldern und ComboBoxen. Dazu noch mal 300 Checkboxen. Der Inhalt der Felder und Zustand der Checkboxen soll abspeicherbar sein. Dazu habe ich eine Variable (CFG) vom Typ record benutzt.
type TConfig = record<BR>
XXX:string[255];<BR>
YYY:boolean;<BR>
usw.<BR>
end;
var
f1:file of TConfig;<BR>
CFG:TConfig;
In die Variable schreibe ich mit
procedure WriteCFG;<BR>
begin<BR>
with CFG, FormMain do<BR>
begin<BR>
XXX:=EditXXX.Text;<BR>
YYY:=CheckBoxYYY.Checked;<BR>
usw.<BR>
end;
und speichere die Variable CFG in eine Datei mit
AssignFile(f1, Dateiname);<BR>
Rewrite(f1);<BR>
Write(f1, CFG);<BR>
CloseFile(f1);
Die Datei öffne ich und lese die CFG Variable aus mit
AssignFile(f1, FileName);<BR>
Reset(f1);<BR>
Read(f1, CFG);<BR>
CloseFile(f1);
Aus der Variable lese ich die Feldinhalte wieder in die Felder ein mit
procedure ReadCFG;<BR>
begin<BR>
with CFG, FormMain do<BR>
begin<BR>
EditXXX.Text := XXX;<BR>
EditYYY.Text := YYY;<BR>
usw.
Alles funktioniert auch fast. Aber ab 280 Felder wird nicht alles wieder zurückgeschrieben.
Jetzt meine Frage:
Gibt es da irgendeine Groessenbeschraenkung fuer die record Variable? Und speichert man sowas ueberhaupt in record Variablen ab? Ich will ja nicht mehrere Zustaende in einer Datei abspeichern wie in einer Datenbank, sondern nur einen Datensatz. Der naechste Datensatz soll in einer anderen Datei abgespeichert werden.
Gruss Matthias
<BR>
Comment