Daten speichern

[LukeGee]

hier:

Delphi-Quellcode:

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.