Records

[magsec_87]

Hallo ich habe genau so ein problem, nur dass bei mir immer angezeigt wird: "Datezugriff Verweigert"

Ich hab keine Ahnung woran das liegen könnte!!

Delphi-Quellcode:

type woerterbuch = record
            de: array[1..5] of string[25];
            en: array[1..5] of string[25];
            end;
     vokabellist = record
            de: array[1..5] of string[25];
            en: array[1..5] of string[25];
            gewesen : boolean;
            klasse : word;
            end;

var
  
  l         : TListItem;
  datei_name: string;
  data      : woerterbuch;
  woerter   : file of woerterbuch;
  vlist     : file of vokabellist;

  loades    : record
            de      : array[1..5] of string[25];
            en      : array[1..5] of string[25];
            gewesen : boolean;
            klasse  : word;
            end;

Delphi-Quellcode:

assignFile(woerter,'Datenbank.rec');
  for i:=1 to 5 do
    begin
    data.de[i]:=loades.de[i];
    data.en[i]:=loades.en[i];
    write(woerter,data);
    end;
  reset(woerter);

  with listview1.items.add do
    begin
    if (sprache1_lbl.Caption='Deutsch') then
      begin
      l.Caption:=ltempd;
      l.SubItems.Add(ltempe);
      end;
    if (sprache1_lbl.Caption='Englisch') then
      begin
      l.Caption:=ltempe;
      l.SubItems.Add(ltempd);
      end;

Kann mir vielleicht jemand helfen???
Danke!

mfg
magsec_87