Делфи език
Следващият тип данни е булев Булево, състоящ се само от две стойности: Вярно (Истина) и Невярно (Невярно). При това Вярно> Невярно.
Сега, използвайки компоненти, техните свойства и събития, като въведете свои собствени променливи, можете да проектирате програми, съдържащи изчисления. Остава да разберем как да покажем изчислената стойност.
Тук не говоря за конзолни програми! И в нормални прозоречни приложения на Windows тази стойност трябва да се постави в някакъв компонент, който има свойства Текст или Надпис. Това са например компоненти като Етикет и редактиране, а самата Форма има свойството Надпис, където можете също да покажете информация. В Delphi обаче информацията обикновено трябва да се трансформира, преди да бъде изведена. Тъй като присвояването е възможно само между променливи от същия тип, тогава такава програма (не се опитвайте да я изпълните):
вар A, B, C: Цяло число;
започнете
A: = 5;
В: = 10;
C: = A + B;
Label1.Caption: = C;
край;
ще доведе до грешка, тъй като свойството Надпис има текст Тип низ, а използваните променливи са числови Целочислен тип. Следователно трябва да преобразувате стойността на променливата ° С към типа текст. За това има вградена функция IntToStr. Редът в нашата „програма“, който е причинил грешката, трябва да изглежда така:
процедура TForm1.Button1Click (Изпращач: TObject);
вар A, B, C: Цяло число; // Не забравяйте декларациите на променливизапочнете// Начало на кода:
A: = Edit1.Text;
B: = Edit2.Text;
C: = A + B;
Label1.Caption: = IntToStr (C);
// Край на кодакрай;
Когато се опитва да изпълни този код, Delphi ще покаже грешки по подобна причина - променливи A и Б. имат цифрови Целочислен тип, и собственост Текст - текст Тип низ. Вградената функция ще ви помогне да поправите грешки StrToInt, извършване на обратното преобразуване - текст в цяло число. Оператори за променливо присвояване A и Б. трябва да изглежда така:
A: = StrToInt (Edit1.Text);
B: = StrToInt (Edit2.Text);
В този случай променливите A, B, C са били използвани за яснота. Можете да се справите с един ред:
По същия начин има функции за конвертиране към и от низ реални плувки (Плувкаанглийски) запетая от тип Истински. За да конвертирате в низ - FloatToStr, обратно - StrToFloat.
Резултатите от изчисленията от тип Delphi често са Истински, имат дълга "опашка" от цифри след десетичната запетая. Когато се показва такава променлива в текстова форма, е необходимо да се ограничи броят на цифрите след десетичната запетая. Как това може да се направи, също е описано в Урок за работа с Delphi Работа с Delphi Strings.
Представяне на Delphi събития Обратно към началото Структурни типове данни
Въпреки това ще видя дали нещо може да се промени. Кирил, добавено 21.11.11 11:50:40
И всъщност къде да вмъкна това парче? (започна с 1 урок) Автор, добавен 11.21.11 13:18:38
Това:
процедура TForm1.Button1Click (Изпращач: TObject);
започнете
генерира се от Delphi, когато щракнете двукратно върху бутона във формуляра. И този
var A, B, C: Integer;
след това се вмъква между процедурата и започва (по дяволите, наистина не се вижда.)
A: = Edit1.Text;
B: = Edit2.Text;
C: = A + B;
Label1.Caption: = IntToStr (C);
процедура TForm1.Button1Click (Изпращач: TObject);
вар
a, b, c: цяло число;
започнете
a: = StrToInt (Edit2.Text);
b: = StrToInt (Edit3.Text);
c: = a + b;
Label2.Caption: = inttostr (c);
край;
"x" обозначавам всякакви числа и _ (подчертаване) интервал.
Или по друг начин. Това трябва да се определи от програмиста и да се контролира въвеждането, в противен случай потребителят въвежда това, че ще бъде невъзможно да отдели кода от общия текст.
След това разглеждаме позицията, на която се намира последователността _843_ или (843). В първия случай е 5, във втория - 3 (бройте се!) Нека обозначим необходимата последователност с буквата S, а позицията с числото N.
ако pos (S, Edit1.Text) = N
след това ShowMessage ('Това е число на Казан');
Нещо такова. Анонимен, добавен 05.28.12 14:47:47
процедура TForm1.BitBtn1Click (Изпращач: TObject);
var s, n: цяло число;
започнете
s: = 843;
n: = 1;
ако pos (S, Edit1.Text) = n
след това ShowMessage ('Това е число на Казан');
край;