pascalabcnet/TestSuite/CompilationSamples/StringInteger3.pas

16 lines
550 B
ObjectPascal
Raw Normal View History

// Преобразование целое <-> строка в новом стиле
2015-05-14 22:35:07 +03:00
var
s: string;
i: integer;
begin
// Преобразование целого в строку
2015-05-14 22:35:07 +03:00
i := 234;
s := i.ToString;
writelnFormat('Целое: {0}. После преобразования к строке: ''{1}''',i,s);
2015-05-14 22:35:07 +03:00
// Преобразование строки в целое
2015-05-14 22:35:07 +03:00
s := '567';
if integer.TryParse(s,i) then
writelnFormat('Строка: ''{0}''. После преобразования к целому: {1}',s,i);
2015-05-14 22:35:07 +03:00
end.