A oto i rozwiazanie problemu
procedure TForm1.Button1Click(Sender: TObject);
var tab: array[1..10] of integer;
S1,S2: TFileStream;
begin
S1 := TFileStream.Create('Test.dat',fmShareDenyNone+fmOpenReadWrite);
S2 := TFileStream.Create('Test.dat',fmShareDenyNone+fmOpenReadWrite);
Showmessage('S1: '+IntToStr(S1.size)+#13+'S2: '+IntToStr(S2.size));
S1.writebuffer(tab,sizeof(tab));
Showmessage('S1: '+IntToStr(S1.size)+#13+'S2: '+IntToStr(S2.size));
S1.free;
S2.free;
end;
w obu uzyskanych komunikatach rozmiary strumieni sa takie same,
pomimo iz zapis nastompil tylko do S1.
zatem nie trzeba nic robic z drugim strumieniem aby dostac sie do danych zapisanych
w tym samym pliku za pomoca innego strumienie.
pozdrawaiam