====== Constructor ====== Создает объект класса TPoint. ===== Синтаксис ===== ==== PASCAL ==== constructor TPoint.Create(aX: Integer = 0; aY: Integer = 0; ==== ECMA ==== TPoint([aX][, aY]); ===== Параметры ===== ^Параметр ^Тип (PASCAL) ^Тип (ECMA) ^По умолчанию ^Описание ^ |aX |Integer |Number |0 |Координата X | |aY |Integer |Number |0 |Координата Y | ===== Примеры ===== ==== PASCAL ==== - //{$MODE PASCAL} var point := TPoint.Create; Log('X:'#9 + IntToStr(point.X)); Log('Y:'#9 + IntToStr(point.Y)); - //{$MODE PASCAL} var point := TPoint.Create(1,2); Log('X:'#9 + IntToStr(point.X)); Log('Y:'#9 + IntToStr(point.Y)); ==== ECMA ==== - //{$MODE ECMA} var point = new TPoint(); log('X:' + String.fromCharCode(9) + point.x); log('Y:' + String.fromCharCode(9) + point.y); - //{$MODE ECMA} var point = new TPoint(1,2); log('X:' + String.fromCharCode(9) + point.x); log('Y:' + String.fromCharCode(9) + point.y);