var S. String;
i. integer;
începe
i: = 45;
S: = 'Variabila i conține valoarea -' + InttoStr (i) + 'și nr
altele :-) ';
se încheie;
Din această întrebare, am concluzionat că există încă un ceainic foarte verde :)))
Prima dată am auzit o întrebare atât de prostă, în sensul luminii.
Ei bine, retrageți-vă.
Pe scurt, există astfel de funcții de conversie de tip (sper că știi ce tip este :):
Iată, le-am enumerat în ordinea în care au ajuns :) De fapt, în ordinea importanței și nevoii:
IntToStr - convertește un întreg la un șir. Valoarea IntToStr (12987) este '12987'
StrToInt - convertește un șir la un număr întreg. Valoarea lui StrToInt ('12345') este egală cu 12345
FloatToStr - convertirea unui număr fracționat într-un șir. Valoarea lui FloatToStr (3.74) este ('3.74')
StrToFloat - convertirea unui șir la un număr fracționat. Valoarea lui StrToFloat ('3.14') este 3.14
Ei bine, eu vă dau un exemplu, va crea un program care va aștepta ca utilizatorul să introduc două numere (în edit1 și Edit2), și prin apăsarea unui buton (Button1, le va pune și să aducă în LABEL1 (ce rahat am scrie programator serios cum ar fi :) Cu alte cuvinte, nu uitați să plasați toate componentele:
creați un handler de evenimente utilizând butonul:
procedura Tform1.Button1Click (expeditor: TObject);
începe
Label.Caption: =
IntToStr (StrToInt (Edit1.Text) + StrToInt (Edit2.Text))
se încheie;
Dacă nu înțelegi, atunci poți să faci totul diferit, e mai mult, dar mai ușor (când eram la fel ca tine, am făcut-o, e mai ușor :)
procedura Tform1.Button1Click (expeditor: TObject);
var x, y, suma: întreg; // declarați variabilele, două numere și suma acestora
începe
x: = StrToInt (Edit1.Text); // convertește unitatea la număr
y: = StrToInt (Edit2.Text); // convertește unitatea2 la număr
suma: = x + y; // calcula suma
Label1.Caption: = STRICIENT (Sumă); // Afișați suma din etichetă, convertiți numărul într-un șir
se încheie;
După părerea mea, a scris în grabă, ce este greșit, nu este vina mea, ci tastatura;)
funcția inttostr (în: întreg): șir;
Trimiteți-le prietenilor: