1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Zuruecksetzen: TButton;
    Laden: TButton;
    Speichern: TButton;
    procedure ZuruecksetzenClick(Sender: TObject);
    procedure SpeichernClick(Sender: TObject);
    procedure LadenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ZuruecksetzenClick(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
end;

procedure TForm1.SpeichernClick(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Handy.ini');
  with Ini do
  begin
    WriteString(Edit1.Text,'Name',Edit1.Text);
    WriteInteger(Edit1.Text,'Groesse',StrToInt(Edit2.Text));
    WriteInteger(Edit1.Text, 'Gewicht',StrToInt(Edit3.Text));
    WriteString(Edit1.Text,'Farbe',Edit4.Text);
    WriteInteger(Edit1.Text,'Preis',StrToInt(Edit5.Text));
  end;
 Ini.Free;
end;

procedure TForm1.LadenClick(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Handy.ini');
  with Ini do
  begin
    Edit1.Text:=ReadString(Edit1.Text,'Name','Kein Eintrag');
    Edit2.Text:=IntToStr(ReadInteger(Edit1.Text,'Groesse',0));
    Edit3.Text:=IntToStr(ReadInteger(Edit1.Text, 'Gewicht',0));
    Edit4.Text:=ReadString(Edit1.Text,'Farbe','Kein Eintrag');
    Edit5.Text:=IntToStr(ReadInteger(Edit1.Text,'Preis',0));
  end;
 Ini.Free;
end;
end.					

1:
2:
3:
4:
5:
6:
7:

Type  THandy = RECORD
    Name : string; //Produktbezeichnung des Handys
    Hersteller : string; //Hersteller des Handys
    Preis : real; //Was kostet das Handy
    Kamera : boolean; //Hat das Handy eine Kamera
    // usw. was du halt noch alles speichern willst
  end;					

1:

Var  Handy : File of THandy					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

AssignFile(File of Typ,Name) //meldet eine Datei unter dem angegebenen Namen an
Rewrite(File of Typ) //erzeugt und öffnet die angemeldete Datei und überschreibt diese auch
Reset(File of Typ) //öfnnet die Datei ohne sie zu überschreibern
CloseFile(File of Typ) //Schließt die Datei
Seek(File of Type, Stelle) //Springt in der Datei zur angegebenen Stelle
Append(File of Typ) //Öffnet die Datei und sprngt zum Ende um Daten anzuhängen
Read(File of Typ, Text) // Liest den Inhalt der aktuellen Zeile der Datei in Text ein
ReadLn(File of Typ, Text) //Siehe Read. Nur hier wird automatisch zur nächsten Zeile gesprungen
Write(File of Typ, Text) // Schreibt den Inhalt der aktuellen Zeile der Datei in Text
WriteLn(File of Typ, Text) //Siehe Write. Nur hier wird automatisch zur nächsten Zeile gesprungen

FileSize(File of Typ) //Liefert die aktuelle größe der Datei
FilePos(File of Typ) //Liefert die aktuelle Position des Dateizeigers
Eof(File of Type) // ist true wenn das Dateiende erreicht ist