Witam,
napisałem poniższy program, ale nie chce się skompilować. Poniżej kod programu książki telefonicznej oraz komunikat błędów. Proszę o pomoc :)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
TOsoba = record
imie : string[20];
nazwisko : string[20];
telefon : string[20];
email : string[50];
end;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
baza : array[0..100] of TOsoba;
rozmiar : integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var j : integer;
begin
for j:=0 to rozmiar-1 do
if baza[j].nazwisko = Edit1.Text then
begin
Label1.Caption := baza[j].imie;
Label2.Caption := baza[j].nazwisko;
Label3.Caption := baza[j].telefon;
Label4.Caption := baza[j].email;
end;
procedure TForm1.FormCreate(Sender: TObject);
var plik : TextFile;
linia : string;
spacja : integer;
begin
AssignFile(plik, 'baza.dat');
Reset(plik);
rozmiar:=0;
while not Eof(plik) do
begin
readln(plik, linia);
spacja:=Pos(' ', linia);
baza[rozmiar].imie := Copy(linia, 0, spacja-1);
linia := Copy(linia, spacja+1, Length(linia)-spacja);
spacja:=Pos(' ', linia);
baza[rozmiar].nazwisko := Copy(linia, 0, spacja-1);
linia := Copy(linia, spacja+1, Length(linia)-spacja);
spacja:=Pos(' ', linia);
baza[rozmiar].telefon := Copy(linia, 0, spacja-1);
linia := Copy(linia, spacja+1, Length(linia)-spacja);
baza[rozmiar].email := linia;
inc(rozmiar);
end;
CloseFile(plik);
end;
end.
link do screena kodu błędu http://imageshack.us/photo/my-images/39/picture0001vk.jpg/