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