Datei lesen Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Hier wird erläutert wie man Text aus einer externen Datie liest.

siehe auch reset

Beispiel

var dateiname: text;
    inhalt: string;
    

begin
assign(dateiname,'C:\paswiki.txt'); {Hier die Datei vom Typ Text eingeben}
{$I-}
reset(dateiname);
{$I+}
if ioresult>0 then
begin
writeln('Datein nicht gefunden !');readln;
halt;
end
else
repeat
readln(dateiname,inhalt);
writeln(inhalt);
until eof(dateiname)=true;
readln;
end.

---