[Pascal Error] Unit2.pas(1): Unable to invoke Code Completio

[herkulesamstart]

hallo,

vor zwei Tagen hatte ich schon die gleiche Frage hier, allerdings jetzt ein bisschen anders. Ich habe meine Unit jetzt soweit ueberarbeitet, dass sie ohne probleme compiliert wird.

Wenn ich jetzt allerdings meinen eigenen Typ benutzen will bekomm ich trotzdem diesen Fehler angezeigt! Wieso?

Beispiel:

in der procedure oeffnen

Delphi-Quellcode:

db. --> ERROR

danke fuer eure Hilfe

Delphi-Quellcode:

unit Unit2;

interface

uses SysUtils, Dialogs;

type

  Tnummernset = Set of 0..9;

  Tzeit = record
            hour : Integer;
            min : Integer;
            sec : Integer;
            mill : Integer
          end;

  Tsubtitel = Array[1..4] of string[150];

  Tdatatyp = record
                  nummer : Integer;
                  start : Tzeit;
                  ende : Tzeit;
                  sub : Tsubtitel;
                end;

  Tdb = Array[1..1000] of record
                   high : integer;
                   data : Tdatatyp;
                 end;


implementation

procedure errormgr( errnum : Integer);
Var msg: string;
begin
  Case errnum of
   1: msg := 'Lesen der Datei fehlgeschlagen! Die Datei hat ein falsches Format.';
   2: msg := '';
  else
    msg := 'Unbekannter Fehler aufgetreten';
  end;
  Showmessage('Fehler['+ IntToStr(errnum) + '] :' + msg);
end;

procedure oeffnen(filename : string; var db : Tdb);
Var
  f : textfile;
  zeile : string[150];
  //i,j : integer;
  nummern: Tnummernset;
BEGIN

   //-----reseten------------------- '

  //i := 0;
  //j := 0;

  Assignfile(f,filename);
  Reset(f);

  while not eof(f) do
  begin

    //-------read file until some data occurs---
    Repeat
      readln(f,zeile);
    Until zeile <> '';

    //-------check data for corret typ
    if StrToInt(zeile[1]) in nummern then
    begin

      TRY
        readln(f,zeile);
        if StrToInt(zeile[1]) in nummern then
        begin
          
        end
        else errormgr(1);//wrong typ of data

      FINALLY
       
      END;// EOF try-finally
    end
    else errormgr(1);//wrong typ of data


  end;// EOF while-loop
END;// EOF procedure


end.

[herkulesamstart]

sry dummer Fehler von mir...

Mein Datentyp ist ein Array und ich sprech diesen gar nicht mir nummer an, sondern allg..

Mein Fehler

Delphi-Quellcode:

db.

und richtig:

Delphi-Quellcode:

db[i].data.sub[1]