Hi!
vieleicht könnt ihr mir ja mal weiterhelfen…
ich muss in delphi ein programm entwickel,welches bestimmte dateien ausliest und die erste zeile in den dateien komplett weg gelassen wird beim auslesen…
und die möglichkeit gegeben werden, das alle dateien mit einer grösse unter 2kb garnicht beachtet werden, wie kann man sowas in delphi 5.0/6.0 realisieren???
vielen dank!
Hi!
vieleicht könnt ihr mir ja mal weiterhelfen…
ich muss in delphi ein programm entwickel,welches bestimmte
dateien ausliest und die erste zeile in den dateien komplett
weg gelassen wird beim auslesen…
spricht dafür, daß es sich um Textdateien handlet.
und die möglichkeit gegeben werden, das alle dateien mit einer
grösse unter 2kb garnicht beachtet werden, wie kann man sowas
in delphi 5.0/6.0 realisieren???
Machst du mit Filesize. Beachte: geht nicht direkt mit Textdateien, aber mit File of Byte.
vielen dank!
var F:Text; B: File of Byte; line:String;
begin
assignfile(B,Filename); // nur zur Größenbestimmung
if FileSize(F) >= 2048 then begin // nur, wenn Größe > 2kB
assignfile(F,Filename); // als textfile öffnen
reset(F); // zum lesen
readln(F,line); // erste Zeile lesen und vergessen
while not eof(F) do begin // dann weiter bis zum Dateiende:
readln(F,line); // nächste zeile lesen
mach was mit line // und etwas damit machen…
end;
end;
end;
Gruß
Jochen