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;
begin
Stream1 := TFileStream.Create(Inputfile,fmOpenRead);
while stream1.Position < stream1.size do begin
stream1.ReadBuffer(time, SizeOf(time));
arr[index].Liste1 = time;
stream.seek(2, soFromCurrent);
arr[index].Liste2 = time;
werte:=floattostr(arr[index].Liste1) + #9 + floattostr(arr[index].Liste2);
stream2.writebuffer(werte[1],length(werte);
inc(index);
end;
end;
das klappt aber nicht, ich hab auch wenig Erfahrung damit. Hat da jemand nen Tip?