получить указатель на Record

[stalkernet]

Доброго дня всем.

нужна помощь ребенку с курсовым.

задание такое.

есть рекорд

 type
   TFRecTable = record
     FrecInfo : TVector;
     FrecData: TVector;
     FrecDPF : TCVector;
   end;

  type
   PFRecTableArr = ^TFRecTableArr;
   TFRecTableArr = record
     step : double;
     Fx : double;
     TimeGen : double;
     FDiscret : uint64;
     FCount : uint64;
     FrecArr : Tarray<TFRecTable>;
   end;

var 
 Table1, Table2 : TFRecTableArr;
 Buff1,Buff2 : Tbytes

тип TVector : TArray<double>;

Теперь по заданию пункта курсовика нужно скопировать Table1 в Buff1, а Table2 в Buff2. вобщем Record в массив байт. используя MemCopy;

с обычными массивами он разобрался и они копируются... но воткнул с получением указателя на запись. длинну записи в байтах посчитал.

делает таким кодом

var
xpoint : Pointer;
bufflen : uint32;  // длинна record в байтах
buffpointin,buffpointout: pointer;

buffpointin := xpoint;
buffpointout := buff1;
CopyMemory (buffpointout,buffpointin,bufflen);

вобщем засада в том чтобы как в xpoint положить указатель на Table1 или Table2.
или может это вобще не правильный подход?

Всем заранние спасибо за ответы.

[stalkernet]

Вабщем после уточнения - чтоже всетаки надо. Выяснилось. Как вседа недопанимание.

Надо сделать как в старом делфи сделана работа с типизированым файлом.

type
TFRecTable = record
FrecInfo : array[0..5] of integer;
FrecData: array[0..5] of double;
end;
var
F : file of TFRecTable;
x: TFRecTable;

// ну и собственно нужно реализовать

write(f, x) и read(f,x)

все это нужно сделать через TFileStream и для динамического массива. Пока отправил курить мануал на тему что такое record и как он организован в памяти. ну и чем димачический массив отличается от статического.

насколько я помню и понимаю задачу. без заголовка в файле где что лежит и какой длинны не обойтись. А собирать буфер надо из record-а поэлементно.

типа
записать в буфер x.FrecInfo
записать в буфер x.FrecData
записать в заголовок начало и длинну x.FrecInfo
записать в заголовок начало и длинну x.FrecData
отправить буфер в FileStream.

Я правильно помню? Или есть какаято готовая функция чтения записи record-а?

[BDA]

SizeOf(x) равен 72 байта, что совпадает с ожидаемым размером 6 интов + 6 даблов, так что писать можно сразу "stream.WriteBuffer(x, SizeOf(x));".

[stalkernet]

BDA не спорю. ну а если такая тип:

type
TFRecTable = record
len : uint64;
step : double;
prefx : string;
FrecInfo : array of integer;
FrecData: array of double;
end;

тогда только поэлементно. иначе что откуда читать назад?
или я неправ?

[BDA]

Я не знаю, как в памяти хранится дженерик-массив (который в первом сообщении темы). Элементы динамического массива хранятся в памяти подряд, так что при записи в файл можно записать количество, а затем все элементы массива разом (если рассматривать одномерный динамический массив типов статического размера). Есть библиотека для записи и чтения таких вещей - http://code.google.com/p/kblib/. Можно попробовать там подсмотреть, как это сделать.

[northener]

Сообщение от stalkernet

ну а если такая тип

Вы уж определитесь с конкретно с тем, что нужно ребёнку (если он вообще у вас есть).

[stalkernet]

northener ребенок не мой. родственики навязали. и нужен ему хороший ремень.... один Copy/Paste на уме. а как работает - не важно. в часном случае получилось - и ладненько. короче по натуре -кодер. хотел от меня готовое решение...

Своего научил пользоватся литературой - достаточно просто подсказать в какую сторону рыть. ну хоть понимает как пишутся алгоритмы. и каких труднестей и внимательности они требют чтобы убедится что все работает как нужно...

BDA Спасибо за сцылку. сэкономит время на разработке проокола обмена. а дальше будет видно - переписовать на свое или смысла нет.