Registriert seit: 5. Jun 2005
16 Beiträge
|
Re: Progress Bar
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;
|
|
Zitat
|