unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan, ComCtrls, IniFiles, Buttons, ImgList, ToolWin,
ExtCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
StatusBar1: TStatusBar;
XPManifest1: TXPManifest;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Label22: TLabel;
Edit19: TEdit;
ToolBar1: TToolBar;
ImageList1: TImageList;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
Label23: TLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var Ini:TIniFile;
Form1: TForm1;
implementation
uses ABOUT;
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit1-Feld', Edit1.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit2-Feld', Edit2.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit3-Feld', Edit3.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit4-Feld', Edit4.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit5-Feld', Edit5.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit6-Feld', Edit6.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit7-Feld', Edit7.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit8-Feld', Edit8.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit9-Feld', Edit9.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit10-Feld', Edit10.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit11-Feld', Edit11.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit12-Feld', Edit12.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit13-Feld', Edit13.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit14-Feld', Edit14.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit15-Feld', Edit15.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit16-Feld', Edit16.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit17-Feld', Edit17.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit18-Feld', Edit18.Text);
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Ini.WriteString('
Daten', '
Edit19-Feld', Edit19.Text);
Ini.Free;
end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
Ini := TIniFile.Create('
data.ini');
Edit1.Text := Ini.ReadString('
Daten', '
Edit1-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit2.Text := Ini.ReadString('
Daten', '
Edit2-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit3.Text := Ini.ReadString('
Daten', '
Edit3-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit4.Text := Ini.ReadString('
Daten', '
Edit4-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit5.Text := Ini.ReadString('
Daten', '
Edit5-Feld', '
Default-Angabe');
Ini.Free;
Ini := TIniFile.Create('
data.ini');
Edit6.Text := Ini.ReadString('
Daten', '
Edit6-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit7.Text := Ini.ReadString('
Daten', '
Edit7-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit8.Text := Ini.ReadString('
Daten', '
Edit8-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit9.Text := Ini.ReadString('
Daten', '
Edit9-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit10.Text := Ini.ReadString('
Daten', '
Edit10-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit11.Text := Ini.ReadString('
Daten', '
Edit11-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit12.Text := Ini.ReadString('
Daten', '
Edit12-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit13.Text := Ini.ReadString('
Daten', '
Edit13-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit14.Text := Ini.ReadString('
Daten', '
Edit14-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit15.Text := Ini.ReadString('
Daten', '
Edit15-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit16.Text := Ini.ReadString('
Daten', '
Edit16-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit17.Text := Ini.ReadString('
Daten', '
Edit17-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit18.Text := Ini.ReadString('
Daten', '
Edit18-Feld', '
Default-Angabe');
Ini := TIniFile.Create('
data.ini');
Edit19.Text := Ini.ReadString('
Daten', '
Edit19-Feld', '
Default-Angabe');
end;
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
Edit1.Text:='
';
Edit2.Text:='
';
Edit3.Text:='
';
Edit4.Text:='
';
Edit5.Text:='
';
Edit6.Text:='
';
Edit7.Text:='
';
Edit8.Text:='
';
Edit9.Text:='
';
Edit10.Text:='
';
Edit11.Text:='
';
Edit12.Text:='
';
Edit13.Text:='
';
Edit14.Text:='
';
Edit15.Text:='
';
Edit16.Text:='
';
Edit17.Text:='
';
Edit18.Text:='
';
Edit19.Text:='
';
end;
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if (CheckBox1.Checked=true)
then Edit1.Enabled:=true;
if (CheckBox1.Checked=false)
then Edit1.Enabled:=false;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if (CheckBox2.Checked=true)
then Edit5.Enabled:=true;
if (CheckBox2.Checked=false)
then Edit5.Enabled:=false;
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if (CheckBox3.Checked=true)
then Edit6.Enabled:=true;
if (CheckBox3.Checked=false)
then Edit6.Enabled:=false;
if (CheckBox3.Checked=true)
then Edit7.Enabled:=true;
if (CheckBox3.Checked=false)
then Edit7.Enabled:=false;
if (CheckBox3.Checked=true)
then Edit8.Enabled:=true;
if (CheckBox3.Checked=false)
then Edit8.Enabled:=false;
if (CheckBox3.Checked=true)
then Edit9.Enabled:=true;
if (CheckBox3.Checked=false)
then Edit9.Enabled:=false;
if (CheckBox3.Checked=true)
then Edit10.Enabled:=true;
if (CheckBox3.Checked=false)
then Edit10.Enabled:=false;
if (CheckBox3.Checked=true)
then Edit11.Enabled:=true;
if (CheckBox3.Checked=false)
then Edit11.Enabled:=false;
end;
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if (CheckBox4.Checked=true)
then Edit12.Enabled:=true;
if (CheckBox4.Checked=false)
then Edit12.Enabled:=false;
if (CheckBox4.Checked=true)
then Edit13.Enabled:=true;
if (CheckBox4.Checked=false)
then Edit13.Enabled:=false;
if (CheckBox4.Checked=true)
then Edit14.Enabled:=true;
if (CheckBox4.Checked=false)
then Edit14.Enabled:=false;
if (CheckBox4.Checked=true)
then Edit15.Enabled:=true;
if (CheckBox4.Checked=false)
then Edit15.Enabled:=false;
if (CheckBox4.Checked=true)
then Edit16.Enabled:=true;
if (CheckBox4.Checked=false)
then Edit16.Enabled:=false;
if (CheckBox4.Checked=true)
then Edit17.Enabled:=true;
if (CheckBox4.Checked=false)
then Edit17.Enabled:=false;
if (CheckBox4.Checked=true)
then Edit18.Enabled:=true;
if (CheckBox4.Checked=false)
then Edit18.Enabled:=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.