Ответ: Все статьи, уроки,дополнения, ошибки ком&
Добавь вот эти функции с английской справки:
function ImageFromCanvas(x,y,width,height: integer): image;
function ImageFromImage(sourceImg: image; x,y,width,height: integer): image;
function FormAddDateField(label: string; type: integer): integer;
function FormGetDate(index: integer): integer;
procedure FormSetDate(index,dateTime: integer);
function GetFormTitle: string;
procedure RemoveFormTitle;
procedure SetFormTitle(title: string);
procedure CloseRSEnumeration(reEnumIdx: integer);
function EnumerateRecords(rs: recordStore): integer;
function GetRecordStoreNextId(rs: recordStore): integer;
function GetRecordStoreSize(rs: recordStore): integer;
procedure ModifyRecordStoreEntry(rs: recordStore; nwData: string; index: integer);
function NextRecord(rsEnumIdx: integer): string;
procedure UpdateRSEnumeration(rsEnumIdx: integer);
Вместо trunc можно использовать вот это:
function trunc_(r: real): integer;
var
a: integer;
begin
a:=trunc(r);
if a>r then a:=a-1;
trunc_:=a;
end;
Последний раз редактировалось vitalik1, 14.09.2008 в 13:27.
|