|
|
 | EOF
Fra : Ukendt |
Dato : 15-12-03 21:25 |
|
Hej,
jeg har et problem med at læse en tekstfil. Jeg tror der er en fejl i
slutningen af filen.
Kan man sætte en ny EOF før sidste linie i filen.
while not eof(indfil) do
begin
readln(indfil, S);
if not eof(indfil) then
writeln(tempfil, S)
else
write(tempfil, 'HER SLUTTER FILEN');
end
Hvis jeg manuelt sletter den sidste linie før jeg indlæser filen fungerer
programmet fik.
Kunne det løses med SetTextBuf?
vh
Harald
| |
 Calle. (15-12-2003)
| Kommentar
Fra : Calle. |
Dato : 15-12-03 22:36 |
|
Harald wrote:
> Hej,
> jeg har et problem med at læse en tekstfil. Jeg tror der er en fejl i
> slutningen af filen.
>
> Kan man sætte en ny EOF før sidste linie i filen.
>
> while not eof(indfil) do
> begin
> readln(indfil, S);
> if not eof(indfil) then
> writeln(tempfil, S)
> else
> write(tempfil, 'HER SLUTTER FILEN');
> end
>
> Hvis jeg manuelt sletter den sidste linie før jeg indlæser filen
> fungerer programmet fik.
while not eof(indfil) do
begin
readln(indfil, S);
writeln(tempfil, S)
end;
write(tempfil, 'HER SLUTTER FILEN');
end.
--
Calle
| |
|
|