Читать «Советы по Delphi. Версия 1.0.6» онлайн - страница 11

   {Наконец, начинаем считывать данные для байтов nDataBytes}
   if nDataBytes>0 then DataYet:= True;
   N:=0; {чтение с первой позиции}
   while DataYet do begin
    ReadOneDataBlock(Ki,Kj); {получаем 4 байта}
    nDataBytes:= nDataBytes-4;
    if nDataBytes<=4 then DataYet:= False;
   end;
   ScaleData(Ki);
   if Ki.WAV.nChannels=2 then begin Kj.WAV:= Ki.WAV;
   ScaleData(Kj);
  end;
  {Освобождаем буфер файла}
  CloseFile(InFile);
 end else begin
  InitSpecs;{файл не существует}
  InitSignals(Ki);{обнуляем массив "Ki"}
  InitSignals(Kj);{обнуляем массив "Kj"}
 end;
end; { ReadWAVFile}
{================= Операции с набором данных ====================}
const MaxNumberOfDataBaseItems = 360;
type  SignalDirectoryIndex = 0..MaxNumberOfDataBaseItems;
VAR DataBaseFile: file of Observation;
LastDataBaseItem: LongInt; {Номер текущего элемента набора данных}
ItemNameS: array[SignalDirectoryIndex] of String[40];
procedure GetDatabaseItem(Kk : Observation; N : LongInt);
begin
 if N<MaxNumberOfDataBaseItems then begin
  Seek(DataBaseFile, N);
  Read(DataBaseFile, Kk);
 end else InitSignals(Kk);
end; {GetDatabaseItem}
procedure PutDatabaseItem(Kk : Observation; N : LongInt);
begin
 if  N<MaxNumberOfDataBaseItems then if N<=LastDataBaseItem then begin
  Seek(DataBaseFile, N);
  Write(DataBaseFile, Kk);
  LastDataBaseItem:= LastDataBaseItem+1;
 end else while lastdatabaseitem<=n do begin
  Seek(DataBaseFile, LastDataBaseItem);
  Write(DataBaseFile, Kk);
  LastDataBaseItem:= LastDataBaseItem+1;
 end else ReportError(1); {Попытка чтения MaxNumberOfDataBaseItems}
end; {PutDatabaseItem}
procedure InitDataBase;
begin
 LastDataBaseItem:= 0;
 if FileExists(StandardDataBase) then begin
  Assign(DataBaseFile,StandardDataBase);
  Reset(DataBaseFile);
  while not EOF(DataBaseFile) do begin
   GetDataBaseItem(K0R, LastDataBaseItem);
   ItemNameS[LastDataBaseItem]:= K0R.Name;
   LastDataBaseItem:= LastDataBaseItem+1;
  end;
  if EOF(DataBaseFile) then if LastDataBaseItem>0 then LastDataBaseItem:= LastDataBaseItem-1;
 end;
end; {InitDataBase}
function FindDataBaseName(Nstg: String): LongInt;
var ThisOne : LongInt;
begin
 ThisOne:= 0;
 FindDataBaseName:= –1;
 while ThisOne<LastDataBaseItem do begin
  if Nstg = ItemNameS[ThisOne] then begin
   FindDataBaseName:= ThisOne;
   Exit;
  end;
  ThisOne:= ThisOne+1;
 end;
end; {FindDataBaseName}
{======================= Инициализация модуля ========================}
procedure InitLinearSystem;
begin
 BaseFileName:= '\PROGRA~1\SIGNAL~1\';
 StandardOutput:= BaseFileName + 'K0.wav';
 StandardInput:= BaseFileName + 'K0.wav';
 StandardDataBase:= BaseFileName + 'Radar.sdb';
 InitAllSignals;
 InitDataBase;
 ReadWAVFile(K0R,K0B);
 ScaleAllData;
end; {InitLinearSystem}
begin {инициализируемый модулем код}
 InitLinearSystem;
end. {Unit LinearSystem}

Даты

Вычисление даты Пасхи

function TtheCalendar.CalcEaster:String;
var B,D,E,Q:Integer;
 GF:String;
begin
 B:= 225-11*(Year Mod 19);
 D:= ((B-21)Mod 30)+21;
 If d>48 then Dec(D);
 E:= (Year+(Year Div 4)+d+1) Mod 7;
 Q:= D+7-E;
 If q<32 then begin