n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/StringInteger.pas

16 строк398 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// �������������� ����� <-> ������ � ����� ����� 
var 
  s: string;
  i: integer;

begin
  // �������������� ������ � ������
  i := 234;
  s := i.ToString;
  writelnFormat('�����: {0}. ����� �������������� � ������: ''{1}''',i,s);
  
  // �������������� ������ � ����� 
  s := '567';
  if integer.TryParse(s,i) then
    writelnFormat('������: ''{0}''. ����� �������������� � ������: {1}',s,i);
end.