---

Hvordan læser man lettest en tekst-fil, én linie ad gangen...?

Claus

---

news wrote:
> Hvordan læser man lettest en tekst-fil, én linie ad gangen...?

Der er en lille forskel, der afhænger af om man benytter Delphi eller
Turbo Pascal - nedenstående kode kan bruges under Delphi:

var
TextFile: TextFile;
TextLine: string;

begin
AssignFile(TextFile, 'C:\AUTOEXEC.BAT');
Reset(TextFile);
while not Eof(TextFile) do
begin
Readln(TextFile, TextLine);
Writeln(TextLine);
end;
CloseFile(TextFile);
end.

Dertil kommer evt. I/O error catching, hvis man ønsker dette. Se på
compiler-direktivet {$I} og IOResult, så burde du kunne tilføje koden,
der fanger fejlen, og kan afslutte programmet uden en run-time fejl.

--
Med venlig hilsen,
René Jensen

---

Jeg kan da lige tilføje noget hurtigt kode som bruger ioresult:

var
ior : integer;
begin;
assignfile (fil, 'test.txt' );
{$i-}
reset (fil);
ior := ioresult;
{$i+}
if not (ior=0) then begin;showmessage ('fejl ved åbning ('+inttostr
(ior)+')');exit;end;
closefile (fil);

Klaus.