Progress Bar

[RobinHood]

Also die Textdatei ist ein Logfile ....
In jeder zeile steht in einer bestimmten Syntax ein Datum und ein Name.
Ich erstelle dann ein Array mit einem Record ... also einmal das Datum und der Name.

Delphi-Quellcode:

type

  TUhrzeit = record
                std : integer;
                min : integer;
              end;

  TDatum = record
              tag : integer;
              monat : integer;
              jahr : integer;
            end;

  TWann = record
              datum : TDatum;
              uhrzeit : TUhrzeit;
             end;

  TEintrag = record
                 name : string[50];
                 wann : TWann;
                end;

  TEintraege = array of TEintrag;

implementation

Delphi-Quellcode:

  procedure einlesen(var eintraege : TEintraege; pfad : string);
  var d : textfile;
      i : integer;
      tmprec : TEintrag;
      tmpstr : string;
  begin
    i := 0;
    assignfile(d,pfad);
    reset(d);

    while not eof(d) do
      begin
        readln(d,tmpstr);

        tmprec.name := copy(copy(tmpstr,22,length(tmpstr)-21),1,pos(' ',copy(tmpstr,22,length(tmpstr)-21)));
        with tmprec.wann do
          begin
            datum.tag := StrToInt(copy(tmpstr,2,2));
            datum.monat := StrToInt(copy(tmpstr,5,2));
            datum.jahr := StrToInt(copy(tmpstr,8,4));
            uhrzeit.std := StrToInt(copy(tmpstr,15,2));
            uhrzeit.min := StrToInt(copy(tmpstr,18,2));
          end;

        setlength(eintraege,i+1);
        eintraege[i] := tmprec;
        inc(i);
      end;
    closefile(d);
  end;