Código Delphi [-] var Stream: TFileStream; begin Stream := TFileStream.Create('CalendarCombo.dcu', fmOpenRead); try Stream.Seek(Pos, soBeginning); Stream.ReadBuffer(Buf, SizeOf(Buf)); finally Stream.Free; end; end;
var Stream: TFileStream; begin Stream := TFileStream.Create('CalendarCombo.dcu', fmOpenRead); try Stream.Seek(Pos, soBeginning); Stream.ReadBuffer(Buf, SizeOf(Buf)); finally Stream.Free; end; end;