[an error occurred while processing this directive]
|
type
TDaysToRun = record
Days:WORD;
DONE:Boolean;
LOAD:BOOLEAN;
end;
TRaspisanieList = record
NEXTSTART:TDATETIME;
ArgumItemNumber:BYTE;
NumbItemLoaded:word;
DaysToStartUp:ARRAY [0..30]OF TDaysToRun;
LineSost:byte;
DONE:Boolean;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
RaspisanieList: Array of TRaspisanieList;
_Raspisanie1: TRaspisanieList;
_Raspisanie2: TRaspisanieList;
_Raspisanie3: TRaspisanieList;
_Len, i: Integer;
_Out: TFileStream;
begin
SetLength(RaspisanieList, 3);
_Raspisanie1.NEXTSTART := 1;
_Raspisanie1.ArgumItemNumber := 1;
_Raspisanie1.NumbItemLoaded := 1;
for i := 0 to 30 do begin
_Raspisanie1.DaysToStartUp[i].Days := 1;
_Raspisanie1.DaysToStartUp[i].DONE := False;
_Raspisanie1.DaysToStartUp[i].LOAD := False;
end;
_Raspisanie1.LineSost := 1;
_Raspisanie1.DONE := False;
RaspisanieList[0] := _Raspisanie1;
_Raspisanie2.NEXTSTART := 2;
_Raspisanie2.ArgumItemNumber := 2;
_Raspisanie2.NumbItemLoaded := 2;
_Raspisanie2.DaysToStartUp[0].Days := 2;
for i := 0 to 30 do begin
_Raspisanie2.DaysToStartUp[i].Days := 2;
_Raspisanie2.DaysToStartUp[i].DONE := False;
_Raspisanie2.DaysToStartUp[i].LOAD := False;
end;
_Raspisanie2.LineSost := 1;
_Raspisanie2.DONE := False;
RaspisanieList[1] := _Raspisanie2;
_Raspisanie3.NEXTSTART := 3;
_Raspisanie3.ArgumItemNumber := 3;
_Raspisanie3.NumbItemLoaded := 3;
_Raspisanie3.DaysToStartUp[0].Days := 3;
for i := 0 to 30 do begin
_Raspisanie3.DaysToStartUp[i].Days := 3;
_Raspisanie3.DaysToStartUp[i].DONE := False;
_Raspisanie3.DaysToStartUp[i].LOAD := False;
end;
_Raspisanie3.LineSost := 1;
_Raspisanie3.DONE := False;
RaspisanieList[2] := _Raspisanie3;
_Out := TFileStream.Create('C:\Temp\test.txt', fmCreate);
try
_Len := Length(RaspisanieList);
_Out.Write(_Len, SizeOf(_Len));
for i := 0 to _len - 1 do begin
_Out.Write(RaspisanieList[i], SizeOf(RaspisanieList[i]));
end;
finally
_Out.Free;
end;
end;
E-mail: info@telesys.ru