
Дати письмову відповідь на запитання
1.Яка властивість вказує на власника компонента?
_____________________________________
2.Як називається масив який містить список усіх компонентів, якими володіє даний компонент?
_____________________________________
3.Задопомогою якої властивості можна сховати компонент, і якого вона типу?
_____________________________________
4.Задопомогою якого методу можна сховати компонент?
_____________________________________
5.Задопомогою якого методу можна показати схований компонент?
_____________________________________
Переведіть числа з шістнадцятирічної системи числення в десятеричну та навпаки:
16 |
10 |
|
10 |
16 |
$00000D |
|
|
3445 |
|
$2A000D |
|
|
89765 |
|
$DDDDDD |
|
|
123456 |
|
$123456 |
|
|
500 |
|
$000064 |
|
|
1000 |
|
$0003E8 |
|
|
100100 |
|
$000521 |
|
|
98765 |
|
$0013BA |
|
|
909090 |
|
$00FFFF |
|
|
64000 |
|
$0000FF |
|
|
128 |
|
$FFFFFF |
|
|
256 |
|
Завдання
Дано форма на якій міститься кнопка TButton та компонент TEdit. Напишіть код який повинний бути щоб при натисканні на кнопку число яке знаходиться в компоненті TEdit в десятеричному форматі перетворювалося в шістнадцятирічний.
procedure TForm1.Button1Click(Sender: TObject); begin end;
Практична робота №4 (2 год.)
ТЕМА: Розв’язування простих математичних виразів.
МЕТА: Навчитися використовувати компоненти із сторінки Standart для розв’язку простих математичних задач.
Теоретичні відомості
Процедури і функції для роботи з рядками.
Функція AnsiLowerCase(const S:String):String; Повертає рядок S, в якому всі заголовні літери замінені на рядкові в відповідності з національним кодуванням Windows.
Функція AnsiUpperCase (const S:String): String; Повертає рядок S, в якому всі рядкові літери замінені на головні в відповідності з національним кодуванням Windows.
Функція Concat(S1[,S2,...,SN]:String):String; Повертає рядок, що являє собою сцеплення рядків S1, S2..SN.
Функція Copy(St:String; Index, Count: Integer) : String; Копіює з рядка St Count символів, починаючи з сиволу з номером Index.
Процедура Delete(St:String; Index, Count: Integer); Видаляє Count символів із рядка St, починаючи з сиволу з номером Index.
Процедура Insert(SubSt:String; St, Index:Integer); Вставляє підрядок SubSt в рядок St, починаючи з символа з номера Index.
Функція Length(St:String):Integer; Повертає поточну довину рядка St.
Функція LowerCase(const Sstring): String; Повертає рядок S, в якому всі латинські заголовні літери замінені на рядкові.
Процедура OleStrToStrVar(Source:PwideChar; var Dest:String); Копіює “широкий” (двохбайтний) рядок в звичайний рядок.
Функція Pos (SubSt, St:String):Integer; Відшукує в рядку St перше входження підрядка SubSt і повертає номер позиції, з якої вона починається. Якщо підрядок не знайдений, повертається ноль.
Процедура SetLength (St:String; NewLength:Integer); Встановлює нову меньшу довжину NewLength рядка St. Якщо NewLength більше поточної довени рядка, звертання до SetLength ігнорується.
Функція StringOfChar (ChChar; Count: Integer): String; Створює рядок, що складається із Count раз повторюваного символу Ch.
Функція StringToOleStr (const Sourse: String): PwideChar; Копіює звичайний рядок в двохбайтний.
Функція StringToWideChar (Const Source: String; Dest: PwideChar; DestSize: Integer): PwideChar; Перетворює звичайний рядок в рядок з символами UNICODE.
Функція UpperCase (const S:String): String; Вертає рядок S, в якому всі рядкові латинські літери замінені на заголовні.
Підпрограми перетворення рядків в інші типи.
Функція StrToCurr(St:String): Currency; Перетворює символи рядка St в ціле число типу Currency. Рядок не повинен містити початкових або кінцевих пробілів.
Функція StrToDate (St:String): TdateTime; Перетворює символи рядка St в дату. Рядок повинен містити два або три числа, розділених правельним для Windows роздільником (.).
Функція StrToDateTime(St:String): TdateTime; Претворює символи рядка St в дату і час. (StrToDateTime(’28.06.99 18:23’); - дата й час розділені пробілом.
Функція StrToFloat(St:String):Extended; Перетворює символи рядка St в речовинне число. Рядок не повинен містити початкових або кінцевих пробілів.
Функція StrToInt(St:String): Integer; Перетворює символи рядка St в ціле число. Рядок не повинен містити початкових та кінцевих пробілів.
Функція StrToIntDef(St:String; Default:Integer): Integer; Перетворює символи рядка St в ціле число. Якщо рядок не містить правельного представлення цілого числа, повертається значення Default.
Функція StrToIntRange (St:String; Min,Max:Longint): LongInt; Перетворює символи рядка St в ціле число і викликає виняток ErangeError, якщо число виходить за межі діапазону Min...Max.
Функція StrToTime (St:String):TdateTime; Перетворює символи рядка St в час. Рядок повинен містити два або три числа розділених двокрапкою. За останнім числом через пробіл може йти “am” або “pm”, що вказує на 12-годинний формат часу.
Процедура Val(St:String; var X; Code:Integer); Перетворює рядок символів St в внутрішнє представлення цілої або речовинної змінної х, яке визначається типом цієї змінної. Параметр Code містить нуль, якщо перетворення пройшло вдало. В протилежному випадку він містить номер позиції де виникла помилка. В рядку можуть бути початкові або кінцеві пробіли.
Підпрограми оберненого перетворення.
Функція DateTimeToStr(Value:TdateTime):String; Перетворює дату і час із параметра Value врядок символів.
Процедура DateTimeToString(var St:String; Format:String; Value: Tdata Time); Перетворює дату і час із параметра Value в рядок St в відповідності з специфікаторами параметра Format.
Функція DateToStr(Value: TdateTime): String; Перетворює дату із параметра Value в рядок символів.
Функція FloatToStr(Value:Extended):String; Перетворює речовинне значення Value в рядок символів.
Функція FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits:Integer): String; Перетворює дійсне значення Value в рядок символів з врахуванням формату Format і параметрів Precision i Digits.
Функція Format (const Format: String; const Args:array of const): String; Перетворює будь-яку кількість аргументів масива Args в рядок в відповідності з форматом Format.
Функція FormatDateTime (Format:String; Value: TdateTime):String; Перетворює дату і час із параметра Value в рядок символів в відповідності з спеціфікаторами параметра Format.
Функція FormartFloat (Format:String; Value: Extended): String; Перетворює речовинне значення Value в рядок символів з врахуванням спеціфікаторів формату Format.
Функція IntToNext (Value:Integer; Digits: Integer): String; Перетворює ціле число Value в рядок символьного представлення шестнадцятирічного формату: Digits – мінімальна кількість символів в рядку.
Функція IntToStr(Value:Integer): String; Перетворює ціле значення Value в рядок символів.
Функція Str(X[:Width[:Decimals]]; var St:String); Перетворює число х будь-якого рачовинного або цілого типів в рядок символів St; параметр Width i Decimals, якщо вони є, задають формат перетворення: Width визначає загальну ширину поля, що виділяється під відповідне символьне представлення речовинного або цілого числа х, а Decimals – кількість символів в дробовій частині – якщо х речовинне число.
C |
Відображає спочатку дату в форматі дд.мм.рр, потім пробіл і час в форматі гг.хх.сс |
D |
Відображає день без початкового нуля. |
Dd |
Відображає день з початковим нулем. |
Dddd |
Відображає день неділі прописом. |
Ddddd |
Відображає дату в форматі дд.мм.рр |
Dddddd |
Відображає дату в форматі д.місяць.рік (8 липня 1999) |
M |
Відображає місяць без початкового нуля. |
Mm |
Відображає місяць з початковим нулем. |
Mmm |
Відображає скорочену назву місяця. |
Mmmm |
Відображає повну назву місяця. |
Y або yy |
Відображає дві останні цифри року. |
Yyy або yyyy |
Відображає всі цифри року. |
H |
Відображає години без початкового нуля. |
Hh |
Відображає час з початковим нулем. |
N |
Відображає хвилини без початкового нуля. |
Nn |
Відображає хвилини з початковим нулем. |
S |
Відображає секунди без початкового нуля. |
Ss |
Відображає секунди з початковим нулем. |
T |
Відображає час в форматі гг.хх |
Tt |
Відображає час в форматі гг.хх.сс |
Am/pm |
Відображає час в 12-годинному форматі (am-до 12-дня, pm-після). |
Ampm |
Відображає час в 12-годинному форматі але без вказівки до чи після півдня. |
A/p |
Відображає час в 12-годинному форматі (а-до 12-дня, р-після). |
/ |
Відображає використовуванний в Windows роздільник дати. |
: |
Відображає використовуванний в Windows роздільник часу. |
ІІІ.Використання в процедурах і функціях рядка Format: