Советы по Delphi. Версия 1.0.6

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
 If ShortDateFormat[1]='d' then Result:= IntToStr(Q)+'/3/'+IntToStr(Year)
 else Result:='4/'+IntToStr(Q-31)+'/'+IntToStr(Year);
 end else begin
 If ShortDateFormat[1]='d' then Result:= IntToStr(Q-31)+'/4/'+IntToStr(Year)
 else Result:='4/'+IntToStr(Q-31)+'/'+IntToStr(Year);
 end;
{вычисление страстной пятницы}
 If Q<32 then begin
 If ShortDateFormat[1]='d' then GF:= IntToStr(Q-2)+'/3/'+IntToStr(Year)
 else GF:='3/'+IntToStr(Q-2)+'/'+IntToStr(Year);
 end else begin
 If ShortDateFormat[1]='d' then GF:= IntToStr(Q-31-2)+'/4/'+IntToStr(Year)
 else GF:='4/'+IntToStr(Q-31-2)+'/'+IntToStr(Year);
 end;
end;

Дни недели

Кто-нибудь пробовал написать функцию, возвращающую для определенной даты день недели?

Моя функция как раз этим и занимается.

unit datefunc;

interface

function checkdate(date : string): boolean;
function Date2julian(date : string): longint;
function Julian2date(julian : longint): string;
function DayOfTheWeek(date: string): string;
function idag: string;

implementation

uses sysutils;

function idag : string;
{Получает текущую дату и возвращает ее в формате YYYYMMDD для использования
другими функциями данного модуля.}
var
 Year, Month, Day: Word;
begin
 DecodeDate(Now, Year, Month, Day);
 result:= IntToStr(year)+ IntToStr(Month) +IntToStr(day);
end;

function Date2julian(date : string) : longint;
{Получает дату в формате YYYYMMDD.
Если у вас другой формат, в первую очередь преобразуйте его.}
var
 month, day, year:integer;
 ta, tb, tc : longint;
begin