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:

procedure DatenEinlesen (DatumWert:String; Var MittelWert:TStundenMittel; MaxWert:TDatenSatz);
  var buffer, Volt : String;
      NullWert, Minute, Stunden,h, m, e, k, i : Integer;
      VoltWert, StMittel : Real;
      TextDatei : TextFile;
      Liste : TStringList;
Begin
  AssignFile(TextDatei, DatumWert + '.dat');
  FileMode := fmOpenRead;
  Reset(TextDatei);
  e := 0;
  For h := 1 To 12 Do
      begin
        e := e + 1;
        VoltWert := 0;
        For m := 0 To 59 Do
            begin
              while not Eof(TextDatei) do
                 Begin
                   Liste := TStringList.Create;
                   ReadLn(TextDatei, buffer);
                   k := Pos(#9, buffer) - 1;
                   Volt := '';
                         For e := 1 To k Do
                             begin
                               Volt := Volt + buffer[e];
                             end;
                   VoltWert := VoltWert + StrToFloat(Volt);
                   Liste.Free;
                 end;
            End;
        VoltWert := VoltWert / 60;
        MittelWert[h] := VoltWert;
      End;
  Closefile(TextDatei);
End;