1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

//...
type
    TStunden = record
    Pnr: string[255];
    Auftragnr:string[100];
    {Pnr: string[4];
    Auftragnr: string[6];
    Positionnr: string[2];
    Stunden: string[4];
    DatumJahr: string[4];
    DatumMonat: string[2];
    DatumTag: string[2];}
  end;

  TForm1 = class(TForm)
    //...

  private
    { Private-Deklarationen }
    procedure StundenDateiLaden;
  public
    { Public-Deklarationen }
  end;

var
    Form1: TForm1;
    RecordStunden: TStunden;
    ListStunden: array of TStunden;
    iStunden: integer;
    fStunden: file of TStunden;

implementation

uses Unit3, Unit4, Unit5;


{$R *.dfm}

procedure TForm1.StundenDateiLaden;
var
zeilenanzahl:integer;
begin
showmessage('1');
  assignfile(fStunden,ExtractFilePath(ParamStr(0)) +'dat/Stunden.dat');
  reset(fStunden);
  showmessage('2');
  zeilenanzahl:=2;
  if low(listStunden) <> -1
  then begin
     for iStunden:= 0 to zeilenanzahl-1
     do begin
        showmessage('3');
        Read(fStunden,ListStunden[iStunden]);
        showmessage('4');
     end;
  end;
  closefile(fStunden);
  showmessage('5');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Reset(Datei);
SetLength(DeinArray,FileSize(Datei));
Current := 0;
while not eof(Datei) do
  begin
    read(Datei,DeinArray[Current]);
    inc(Current);
  end;
CloseFile(Datei);					

1:
2:
3:
4:
5:

  TPnr = record
    Pnr: string[3];
    Pname: string[49];
    Rangnr: string[0];
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

PnrDateiLaden;
  i:=0;
  while i<=High(ListPnr) do
    begin
    CBPnr.Items.add(ListPnr[i].Pnr + ListPnr[i].Pname);
    ListBox1.Items.Add (ListPnr[i].Pname);
    ListBox1.Items.add(ListPnr[i].Rangnr);
    i:=i+1;
    end;					

1:
2:
3:

SetLength(ListStunden,Length(ListStunden)+1);
  //write(ListStunden,ListStunden[High(ListStunden)]);
  ListStunden[Length(ListStunden) - 1] := ??;