Hallo, liebe Leute,
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?
Vielen Dank im Voraus
Fröhliche Grüße Roland
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
Hallo Frank,
Du schriebst:
Roland Goretzki schrieb:
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);
Hat geklappt. :)
Bei einer Integer-Variable z.B.: Reset (Dat, '/usr/home/roland/i.GING/' + Integer2String (Variable));
Und das konnte ich noch besser gebrauchen! (-; (Kannst Du hellsehen? ;-)
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.
Nur jetzt schon einmal: Herzlichen Dank!
Fröhliche Grüße Roland
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
Hallo Eike,
Du schriebst:
WriteStr (s, '/usr/home/roland/i.GING/', Variable);
Werde ich noch einmal gründlicher probieren.
Probiere doch mal:
[ ... Beispielprogramm ... ]
Kapiert. Nun kann ich es auch in meinem Programm verwenden, und es funktioniert! :)
Danke!
Fröhliche Grüße Roland
-
Eike Lange -
Frank Heckenbach -
Roland Goretzki