Thema: Delphi Progress Bar

Einzelnen Beitrag anzeigen

RobinHood

Registriert seit: 5. Jun 2005
16 Beiträge
 
#3

Re: Progress Bar

  Alt 3. Okt 2006, 15:05
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;
  Mit Zitat antworten Zitat