pascalabcnet/InstallerSamples/!Tutorial/07_CharString/StringReal1.pas

13 lines
546 B
ObjectPascal
Raw Permalink Normal View History

// Преобразование вещественное <-> строка
2015-05-14 22:35:07 +03:00
begin
// Преобразование целого в строку
var r := 3.1415;
var s := FloatToStr(r);
Println($'Число: {r}. После преобразования к строке: ''{s}''');
2015-05-14 22:35:07 +03:00
// Преобразование строки в целое (может произойти исключение)
2015-05-14 22:35:07 +03:00
s := '3.1415';
r := StrToFloat(s);
Println($'Строка: ''{s}''. После преобразования к числу: {r}');
2015-05-14 22:35:07 +03:00
end.