unit Unit1;
interface
uses
Windows, Messages, Inifiles, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Ueberschrift: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Speichern: TButton;
Ende: TButton;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
Label6: TLabel;
Label8: TLabel;
RadioGroup4: TRadioGroup;
RadioGroup5: TRadioGroup;
RadioGroup6: TRadioGroup;
RadioGroup7: TRadioGroup;
RadioGroup8: TRadioGroup;
RadioGroup9: TRadioGroup;
RadioGroup10: TRadioGroup;
procedure EndeClick(Sender: TObject);
procedure SpeichernClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.EndeClick(Sender: TObject);
begin
close
end;
procedure TForm1.SpeichernClick(Sender: TObject);
var
dummy_inifile:tinifile;
begin
dummy_inifile:=tinifile.create('
Auswertung.ini');
dummy_inifile.writeinteger('
Inifile_section','
Radiogroup1',Radiogroup1.ItemIndex);
dummy_inifile.free;
end;
// Lesen:
var
dummy_inifile:tinifile;
begin
dummy_inifile:=tinifile.create('
dateiname.ini');
radiogroup1.itemindex:=dummy_inifile.readinteger('
Inifile_section','
Radiogroup1',-1);
dummy_inifile.free;
end;
end.