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:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:

unit Unit1;

interface

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

type

  pDaten = ^tDaten;
  tDaten = record
    Begriff:string[20];
    next:pDaten;
  end;

  TForm1 = class(TForm)
    BegriffEingabe: TEdit;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Label5: TLabel;
    Button3: TButton;
    SpeicherButton: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure BegriffEingabeChange(Sender: TObject);
    procedure SpeicherButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BegriffEingabeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  SuchDatensatz:pDaten;
  Datensatz:pDaten;
  wahl:byte;
  leer:boolean;

implementation

{$R *.DFM}

procedure TForm1.BegriffEingabeChange(Sender: TObject);
var h:pDaten;
begin
     BegriffEingabe.Font.Color:=clBlack;
     SuchDatensatz^.Begriff := Begriffeingabe.Text;

     h:=Datensatz;
     while h<>NIL do begin
           if SuchDatensatz^.Begriff = h^.Begriff then Begriffeingabe.Font.Color:=clRed;
           h:=h^.next;
     end;
end;

procedure TForm1.SpeicherButtonClick(Sender: TObject);
var h,alt:pDaten;
    ersetzt:boolean;
    datei:file;
begin
     ersetzt:=false;

     AssignFile(datei,'test.txt');
     Rewrite(datei,1);

     if Datensatz = NIL then begin
        new(Datensatz);
        Datensatz^.next := NIL;
        move(SuchDatensatz^,Datensatz^,sizeof(tDaten));
        ersetzt:=true;
     end;

     h := Datensatz;
     while h<>NIL do begin
           if (h^.Begriff = SuchDatensatz^.Begriff)and not ersetzt then begin
              alt := h^.next;
              move(Suchdatensatz^, h^, sizeOf(tDaten));
              h^.next := alt;
              ersetzt := true;
           end;

           BlockWrite(datei, h^, sizeOf(tDaten));

           if (h^.next=NIL)and not ersetzt then begin
              new(h^.next);
              move(SuchDatensatz^,h^.next^,sizeof(tDaten));
           end;
           h := h^.next;
     end;

     CloseFile(Datei);
end;

procedure TForm1.FormCreate(Sender: TObject);
var datei:file;
    h:pDaten;
begin
     new(SuchDatensatz);
     SuchDatensatz^.next := NIL;

     AssignFile(datei,'test.txt');
     {$I-}
     Reset(datei,1);
     {$I+}

     if IOResult=0 then begin
        new(Datensatz);
        h := Datensatz;
        BlockRead(datei,h^,sizeOf(tDaten));
        while not eof(datei) do begin
              new(h^.next);
              h := h^.next;
              h^.next := NIL;
              BlockRead(datei,h^,sizeOf(tDaten));
        end;
        CloseFile(datei);
     end;
     

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if Key=27 then close;
end;

procedure TForm1.BegriffEingabeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if Key=27 then close;
end;




end.                    

1:

BlockRead(datei,h^,sizeOf(tDaten),Gelesene_Bytes);