Вопрос по динамическим структурам данных

← →
Sergey1982 © (2007-05-10 17:07) [0]

Здравствуйте! Я не особо силён в Delphi. Возникла задача написать плагин для программы Venta fax. Плагин представляет собой DLL, функция из которой будет вызываться по окончании каждой сессии. Вот вид функции function AfterSession(R : TRec32C): LongInt; stdcall; export;

Описание структуры TRec32C.
-----------------------------------

TDaTi = record
Year : word;
Month : word;
Day : word;
Hour : word;
Min : word;
Sec : word;
end;

PTRec32C = ^TRec32C;
TRec32C = Record
Phone : array[0..63] of char;
Company : array[0..63] of char;
ToAbonent : array[0..73] of char;
FileName : array[0..255] of char;
DocName : array[0..73] of char;
Result, Speed, Quality : word;
Date : TDaTi;
Min, Sec : word;
Pages : word;
LastPage : word;
NBlock : longint;
NBadBlock: longint;
Attr : word;
ExtData : array[0..63] of char;
CSI : array[0..21] of char;
NCF : array[0..63] of char;
RecId : longint;
AbId : longint;
CompName: array[0..31] of char;
Reserve : array[0..63] of char;
end;

Мне нужно сделать чтобы значения некоторых элементов структуры TRec32C записывались в текстовый файл после каждой сессии. Каким образом мне получить доступ например к TRec32C.phone ? Пожалуйста подскажите написав небольшой пример. С уважением, Сергей.

← →
MBo © (2007-05-10 17:12) [1]

s: string;
PRec: PTRec32C;

s:= PRec^.Phone;
Writeln(ATextFile, s);//или другой метод записи в файл

Вопрос по динамическим структурам данных Найти похожие ветки