Verschachtelete Schleife - Brett vorm Kopf

[Uwe Merckens]

Hallo Gemeinde,

folgendes Pascal-Problem: ich habe eine Textdatei, in der viele Einträge untereinander stehen. Nach 420 Einträgen wiederholen sich die Daten (Datum, Messwert), von 32 weiteren Messgeräten.
Ich möchte jetzt die ersten 420 Textzeilen in die erste Spalte eines Arrays einlesen, die nächsten 420 Zeilen in die zweite Spalte usw. bis 32 Spalten mit jeweils 420 Zeilen gefüllt sind.
Nach Abluß soll der Inhalt in eine neue Textdatei geschrieben werden.

Vielen Dank fürs mitbrainen

Uwe

[Christian Marquardt]

for i:=0 to 31 begin
for j:=0 to 419 begin
array[i,j]:=deine Daten...
end;
end;

[Uwe Merckens]

Danke schon mal für Deine Hilfe. Aber so bekomm ich es nicht hin.
Wo stelle ich das

while not (Textdatei) eof

in die Schleife?
Nächste Schwierigkeit: ich möchte das Array so wie es ist in die neue Datei schreiben; also [0,0] tab [1,0]

War jetzt ein paar Jahre draußen und bin etwas "eingerostet"

[Christian Marquardt]

Das while ist überflüssig, da du ja weisst wieviele Daten in der Datei sein müssen. Du liest ja nicht aus einer unbekannten Datei. Wenn du es mit dem while unbedingt machen willst, dann musst du die Schleifen per Hand nachbilden:

- Ausgangswerte (Zähler für die Daten eines Messgerätes und Zähler für Messgerät) vor der Schleife setzen (0,0)
- while-Schleife
- Daten lesen
- Daten ins Array
- Zähler für die Daten eines Messgerätes +1
- Wenn 420 Daten gelesen -> Zähler für die Daten eines Messgerätes = 0 -> Zähler für Messgerät +1
- Schleifenende


https://www.google.de/search?q=delph...ient=firefox-a