(Pascal) Mit jelent ez:No default property available?

Vannak még hibák :)

Milyen Pascalt használsz ?

Ez Free Pascal:

Program Valami;

uses SysUtils;

type cikk = record

termek : string[255];

info : string[255];

ertek : integer;

penznem : string[3];

end;

var a : array [1..10000] of cikk;

f : file of cikk;

i : integer;

arch : TextFile;

dir : string;

y1, m1, d1 : string;

y, m, d : word;

h, min, s, ms :word;

filenev : string;

begin

i := 1;

dir := 'C:\Valami\';

DecodeDate(Date, y, m, d);

y1 := IntToStr(y);

m1 := IntToStr(m);

d1 := IntToStr(d);

filenev := dir + y1 + '_' + m1 + '_' + d1 + '.dat';

if not FileExists(filenev) then

WriteLn('Uj konyvelesi fajl letrehozasa');

a[i].termek := 'Alaptermek';

a[i].info := '0-as informacios zar'; //itt hiba

a[i].ertek := 0;

a[i].penznem := '$';

Assign(f, filenev);

ReWrite(f);

Write(f, a[1]);

Close(f);

end.

Valami ilyesmit akartál ?

Turbo Pascal:

Program Valami;

uses Dos;

type cikk = record

termek : string[255];

info : string[255];

ertek : integer;

penznem : string[3];

end;

var a : array [1..100] of cikk;

f : file of cikk;

i : integer;

arch : file of string;

dir : string;

y1, m1, d1 : string[4];

y, m, d, wd : word;

h, min, s, ms :word;

filenev : string;

begin

i := 1;

dir := 'C:\Valami\';

GetDate(y, m, d, wd);

Str(y - 2000, y1);

Str(m, m1);

Str(d, d1);

filenev := dir + y1 + '_' + m1 + '_' + d1 + '.dat';

Assign(f, filenev);

{$I-}

Reset(f);

{$I+}

if IOResult <> 0 then

WriteLn('Uj konyvelesi fajl letrehozasa');

a[i].termek := 'Alaptermek';

a[i].info := '0-as informacios zar';

a[i].ertek := 0;

a[i].penznem := '$';

ReWrite(f);

Write(f, a[1]);

Close(f);

end.