Hallo. Ich habe folgendes problem:
Ich lese 20 Bytes aus einem Filestream in ein 2dimensionales Array ein.
Wie kann ich nun beeinflussen, dass die Bytes horizontal oder vertikal (grafisch vorgestellt)
eingelesen werden.
Bei meinen versuchen klappt nur ein vertikales Einlesen (also in eine Spalte);
Bei diesem Versuch in Zeilen einzulesen kommt nur Müll heraus:
Delphi-Quellcode:
var dummyy:integer;
Incoming:TFileStream;
cbytes:longint;
begin
Incoming:=TFilestream.Create(Th_PfadDaten,fmOpenRead);
for dummyy:=0 to 19 do //Zeilen abarbeiten
begin
Incoming.Seek(XY2Pos(Th_x0,dummyy,Th_xmaxdat,Th_typedefdat),soFromBeginning); //Zu Position im Filestream gehen
Incoming.Readbuffer(Th_DataArray[1,dummyy],20);
end;
FreeAndNil(Incoming);