hey,
erstmal Willkommen in der
DP 
hallo,
ich möchte einen stream in zwei verschiedene listen einlesen und zwar so, dass die ungeraden Zeilenindex in Liste 1 und die geraden in Liste 2 stehen. Ich dachte so ungefähr
Delphi-Quellcode:
TDatensatz = packed record
Liste1:Extended;
Liste2:extended;
end;
TDatenarray = array of TDatensatz ;
var
time:smallint;
arr:TDatenarray;
index:byte;
werte:string;
[..]
Aus der Deklaration wird für mich nicht ersichtlich, was nun deine Liste (du meinst doch die Datenstruktur Liste ?) sein soll.
Generell könntest du dir mal genau ansehen, wie man aus einem Stream liest:
Guckstu.
Danach könnte man es so machen:
Code:
nimm eine Laufvariable, die für jeden Datensatz um eins inkrementiert wird.
Falls dann für einen Datensatz '(i mod 2) = 0' gilt (also dass es sich um eine gerade Zahl handelt)
=> füge es in Liste1 ein, andernfalls in Liste2
das klappt aber nicht, ich hab auch wenig Erfahrung damit. Hat da jemand nen Tip?
Was
genau klappt denn nicht? Kommt irgendwann eine
AV? Meckert der Compiler? Hängt er in einer Endlosschleife?