Roland Goretzki wrote:
Hallo, liebe Leute,
im Anhang sende ich zwei kleine Pascal-Quelltexte, die sich im wesentlichen nur durch eine Prozedur unterscheiden, die der eine Quelltext nicht hat.
Es geht darum, aus einem Array von Dateinamen diese mit einem Zufallsgenerator zu referenzieren.
In dem Programm namens geht.pas funktioniert alles wie gewünscht, nur leider kann ich nicht weiter auf den zufälligen Dateinamen zugreifen, da er nicht als Variable gespeichert ist.
Deshalb habe ich in dem Programm namens gehtNicht.pas den Versuch gestartet, den zufälligen Dateinamen in einer Variablen festzuhalten.
Das funktioniert aber (wie der Programmname schon sagt) nicht richtig: Es werden nämlich völlig unkalkulierbar manchmal die Dateinamen vollständig zurückgegeben, aber manchmal werden am Ende einige Zeichen abgeschnitten.
Damit man das schneller erkennen kann, lassen beide Programme so viele Dateinamen ausgeben.
Kann mir da bitte jemand helfen?
Sieht aus wie ein Fehler im Compiler.
[P17:~/gpc/testgpc] adriaan% gp geht.pas [P17:~/gpc/testgpc] adriaan% ./geht ../lesenoten/h.png ../lesenoten/e1.png ../lesenoten/c.png ../lesenoten/c.png ../lesenoten/a1.png ../lesenoten/g1.png ../lesenoten/h1.png ../lesenoten/l-c1.png ../lesenoten/f.png ../lesenoten/c2.png ../lesenoten/d1.png ../lesenoten/e1.png ../lesenoten/h1.png ../lesenoten/d1.png ../lesenoten/a.png ../lesenoten/d1.png ../lesenoten/d.png ../lesenoten/g.png ../lesenoten/c2.png ../lesenoten/l-c1.png
../lesenoten/e.png ../lesenoten/a.png ../lesenoten/l-c1.png ../lesenoten/a.png ../lesenoten/d.png ../lesenoten/e1.png ../lesenoten/e1.png ../lesenoten/h.png ../lesenoten/f.png ../lesenoten/d.png ../lesenoten/d.png ../lesenoten/f.png ../lesenoten/e.png ../lesenoten/e1.png ../lesenoten/g.png ../lesenoten/c2.png ../lesenoten/f1.png ../lesenoten/c.png ../lesenoten/h1.png ../lesenoten/e.png
../lesenoten/g.png ../lesenoten/l-c1.png ../lesenoten/a.png ../lesenoten/f.png ../lesenoten/d.png ../lesenoten/f.png ../lesenoten/a1.png ../lesenoten/h1.png ../lesenoten/c2.png ../lesenoten/r-c1.png ../lesenoten/a.png ../lesenoten/g.png ../lesenoten/a.png ../lesenoten/g1.png ../lesenoten/c.png ../lesenoten/g1.png ../lesenoten/h1.png ../lesenoten/h1.png ../lesenoten/a1.png ../lesenoten/a1.png [P17:~/gpc/testgpc] adriaan% gp gehtNicht.pas [P17:~/gpc/testgpc] adriaan% ./gehtNicht ../lesenoten/f.png ../lesenoten/l-c1.p ../lesenoten/r-c1. ../lesenoten/h.png ../lesenoten/e.png ../lesenoten/c2.pn ../lesenoten/f1.pn ../lesenoten/d.png ../lesenoten/h.png ../lesenoten/d.png ../lesenoten/h1.pn ../lesenoten/l-c1. ../lesenoten/d1.pn ../lesenoten/d.png ../lesenoten/f.png ../lesenoten/r-c1.
../lesenoten/f1.pn ../lesenoten/c2.pn ../lesenoten/e.png ../lesenoten/f.png ../lesenoten/f.png ../lesenoten/f.png ../lesenoten/d.png ../lesenoten/h1.png ../lesenoten/l-c1. ../lesenoten/h.png ../lesenoten/a.png ../lesenoten/e1.pn ../lesenoten/a.png ../lesenoten/a.png ../lesenoten/f1.pn ../lesenoten/r-c1.p
../lesenoten/h1.png ../lesenoten/f1.pn ../lesenoten/a.png ../lesenoten/h1.pn ../lesenoten/l-c1. ../lesenoten/d.png ../lesenoten/c.png ../lesenoten/d.png ../lesenoten/e.png ../lesenoten/c.png ../lesenoten/f.png ../lesenoten/c2.png ../lesenoten/c.png ../lesenoten/h1.png ../lesenoten/a1.png ../lesenoten/c.png
[P17:~/gpc/testgpc] adriaan% gpc -v Reading specs from /Developer/Pascal/gpc345u2/lib/gcc/i386-apple-darwin8/3.4.5/specs Configured with: ../gcc-3.4.5/configure --enable-languages=pascal,c --enable-threads=posix --target=i386-apple-darwin8 --host=i386-apple-darwin8 --build=i386-apple-darwin8 --prefix=/Developer/Pascal/gpc345u2 --with-arch=pentium-m --with-tune=prescott Thread model: posix gpc version 20051116, based on gcc-3.4.5
Met freundlichen Grüssen,
Adriaan van Os