var S. String;
i. Integer;
begin
i: = 45;
S: = 'В змінної i перебувати значення -' + InttoStr (i) + 'і ніякої
інше :-)';
end;
З цього питання я роблю висновок, що ще зовсім зелений чайник :)))
Перший раз чую такий тупий питання, в сенсі легкий.
Ну це так, відступ.
Коротше, є такі функції перетворення типів (сподіваюся знаєш, що таке тип :):
Ось, я їх перераховую в порядку, якому потрапило:) Насправді, в порядку важливості і необхідності:
IntToStr - перетворення цілого числа в рядок. Значени IntToStr (12987) одно '12987'
StrToInt - перетворення рядка в ціле число. Значення StrToInt ( '12345') дорівнює 12345
FloatToStr - перетворення дробового числа в рядок. Значення FloatToStr (3.74) дорівнює ( '3.74')
StrToFloat - перетворення рядка в дробове число. Значення StrToFloat ( '3.14') дорівнює 3.14
Ну і приведу тобі один приклад, створю програму, яка буде очікувати від користувача введення 2 чисел (в Edit1 і в Edit2), а після натиснення на кнопку (button1, буде складати їх і виводити в Label1 (що за туфту я пишу, серйозний програміст на кшталт:) Коротше вникай, не забудь розмістити все компонуються:
створюємо обробник події по кнопці:
procedure Tform1.Button1Click (Sender: TObject);
begin
Label.Caption: =
IntToStr (StrToInt (Edit1.Text) + StrToInt (Edit2.Text))
end;
Якщо не зрозумів, то можна все зробити по іншому, це побільше, але простіше (коли я був таким же як ти, я робив так, так легше :)
procedure Tform1.Button1Click (Sender: TObject);
var x, y, sum: integer; // оголошуємо змінні, два числа і їх сума
Begin
x: = StrToInt (Edit1.Text); // перетворюємо Едіт1 в число
y: = StrToInt (Edit2.Text); // перетворюємо Едіт2 в число
sum: = x + y; // обчислюємо суму
Label1.Caption: = StrToInt (Sum); // Виводимо суму в Лейбл, перетворивши число в рядок
end;
По-моєму так, писав поспіхом, що неправильно, не моя вина, а клавіатури;)
function inttostr (in: integer): string;