Hallo zusammen,
Ich arbeite mal wieder an nem kleinen Programm, bei dem
was nicht so funktioniert wie ich mir das vorstelle.
Es geht darum, immer 2 8-stellige Binärzahlen untereinander in eine Textdatei zu schreiben. Das Ganze dann ca. 20 mal und zwischen 2 untereinander geschriebenen immer 2 Zeilen frei.
Bei mir sieht die Textdatei zum Schluss immer so aus:
01110101
01110101
10001010
10001010
01110101
01110101
10001010
10001010
10001010
10001010
01110101
01110101
usw.
Jeder zweite Block widerholt sich … Das ist das einzige Problem bei der Geschichte.
Hier ein Teil meines Quellcodes:
FOR i := 1 TO 20 DO
BEGIN
CLRSCR;
WRITELN(‚In Arbeit …‘);
RANDOMIZE;
a:=RANDOM(2);
b:=RANDOM(2);
c:=RANDOM(2);
d:=RANDOM(2);
e:=RANDOM(2);
f:=RANDOM(2);
g:=RANDOM(2);
h:=RANDOM(2);
STR(a,eins);
STR(b,zwei);
STR(c,drei);
STR(d,vier);
STR(e,fuenf);
STR(f,sechs);
STR(g,sieben);
STR(h,acht);
zusammen[i]:=CONCAT(eins,zwei,drei,vier,fuenf,sechs,sieben,acht);
DELAY(250);
END;
ASSIGN(zahl,pfad);
REWRITE(zahl);
FOR i := 1 TO 20 DO BEGIN
WRITELN(zahl,zusammen[i]);
WRITELN(zahl,zusammen[i]);
WRITELN(zahl,’’);
WRITELN(zahl,’’);
END;
CLOSE(zahl);
Warum widerholen sich die 8-stelligen Binärzahlen bei jedem zweiten Durchgang??
Danke für eure Hilfe schonmal! 
Gruß,
Hyper-Horst