Roland Goretzki schrieb:

nun habe ich schon ziemlich lange gebastelt, aber anscheinend bekomme ich folgendes nicht ohne Hilfe hin:

Procedure DateiInhaltAusgeben; begin (* DateiInhaltAusgeben *) Reset (Dat,'/usr/home/roland/i.GING/235'); For I := 1 to 8 do Begin ReadLn (Dat,Zeile); WriteLn (Zeile); End; end (* DateiInhaltAusgeben *);

Diese Prozedur funktioniert zwar wie gewünscht in meinem Programm, jedoch würde ich gerne die mit "Reset" einzulesende Datei am Ende mit einer Variablen aufrufen können, also z.b. so:

Reset (Dat,'/usr/home/roland/i.GING/Variable');

Allein weiß ich da nicht mehr weiter. Und: Geht das überhaupt?

Sicher. :-) Wenn es eine String-Variable ist, einfach: Reset (Dat, '/usr/home/roland/i.GING/' + Variable); Bei einer Integer-Variable z.B.: Reset (Dat, '/usr/home/roland/i.GING/' + Integer2String (Variable)); Es geht auch Folgendes, was vor allem nützlich ist, wenn mehrere Variablen im Spiel sind, oder man sich nicht so sehr um die Typen kümmern will, oder andere Formatierungen braucht: WriteStr (s, '/usr/home/roland/i.GING/', Variable); Wobei s eine neue String-Variable ist. Anschließend steht der gesamte Pfad in s und man kann alles Mögliche damit machen, z.B. Reset (Dat, s); Frank -- Frank Heckenbach, frank@g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

Hi! On Mon, May 21, 2001 at 02:37:59AM +0200, Roland Goretzki wrote:

Hallo Frank, Du schriebst:

...

Es geht auch Folgendes WriteStr (s, '/usr/home/roland/i.GING/', Variable); Das würde mich auch interessieren, hat aber bisher bei mir noch nicht funktioniert. Werde ich noch einmal gründlicher probieren.

Probiere doch mal: * ------------- program abc; uses gpc; var i : Integer; s : String; begin for i := 1 to 10 do begin WriteStr( s, 'i=', i ); WriteLn(s) end end. * -------------- Eike