einen "writeln" aufruf für mehrere Dateien verwendbar?

[jaenicke]

Also wenn es denn unbedingt mit Writeln usw. sein muss (warum?), fallen mir z.B. Pointer ein:

Delphi-Quellcode:

var
  a: TextFile;
  b: ^TextFile;
begin
  b := @a;
  AssignFile(b^, '...');