Schule Adressbuch

[wicht]

Du benutzt Prozeduren (z.B. TForm1.FormCreate, TForm1.FormDestroy), die nicht in der Klassendefinition vorhanden sind. Erweitere deinen Kram im interface-Abschnitt.
Oben unter

Delphi-Quellcode:

{ ...}
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);

musst du noch

Delphi-Quellcode:

procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);

schreiben.

Nach "procedure TForm1.Button7Click(Sender: TObject);" hast du am Ende zwei mal "end;" geschrieben - das gehört da aber nur einmal hin - jedes "begin" erfordert ein "end" - da ist eins zu viel.

Dann gibt es noch diese lustige Stelle:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
const
  BufferSize = 32;

procedure TForm1.Button5Click(Sender: TObject);

Das ist so nicht möglich. Mach mal das obere Zeug (alles über dem zweiten "procedure [...]" weg und tu das "const Buffersize = 32;" direkt unter das zweite Procedure, dass es so aussieht:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
const
  BufferSize = 32;
var
  Buffer: array[0..BufferSize - 1] of Adresse;
  i, p: integer;
begin
  Seek(datei,0);
  p:=0;

Weiter habe ich nicht probiert, bin ja nun selber schwer mit Delphi beschäftigt