Speichern !!

[Zero]

Hallo Leute, ich habe eine Frage und bin wie immer für jede Art von Hilfe Dankbar ! Es geht darum: Ich habe ListBox und mehere TRadioBoxen. und einen Ausführen Button. Jetzt möchte ich genre das die Eintsellungen wie die Radio Buttons ( welcher makiert ) sowie aus der ListBox die einträge gespeichert werden und ich diese durch laden der Datein wieder herstellen kann sprich Einstellungen wiederherstellen. Hat da jemand ein beispiel oder so ?

Ich weiss das ich den Save und Open Dialog brauche nur wie gehe ich das an...

Gruß Christian

[Andreas Kosch]

Hallo,

ein Formular ist in der Lage, mit einem <b>WriteComponent</b>-Aufruf den Zustand aller eingebetteten Client-Controls in eine Datei zu schreiben, so das beim nächsten Programmstart der Inhalt alle Controls wieder aus dieser Datei eingelesen werden kann. Somit speichert das Programm alle Einträge im TEdit, TMemo und die Auswahl einer TCheckBox - nur um einige Beispiele zu nennen. Das könnte zum Beispiel so aussehen:
<pre>
unit ReadComponentFrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
ButtonClose: TButton;
procedure ButtonCloseClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private-Deklarationen }
FFilename : String;
public
{ Public-Deklarationen }
constructor Create(aOwner: TComponent); override;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

constructor TForm1.Create(aOwner: TComponent);
var
fs: TFileStream;
begin
FFilename := ExtractFilePath(ParamStr(0)) + Classname + '.DAT';
if FileExists(FFilename) then
begin
CreateNew(aOwner);
fs:= TFileStream.Create(FFilename, fmOpenread or fmShareDenyWrite);
try
fs.ReadComponent(self);
finally
fs.free;
end;
end
else
inherited Create(aOwner);
end;

procedure TForm1.ButtonCloseClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
fs: TFilestream;
begin
fs:= TFilestream.Create(FFilename, fmCreate);
try
fs.WriteComponent(self);
finally
fs.free;
end;
end;

end.
</pre&gt