var A, B, C, D, E, F : Int64; begin A := 32; B := StrToInt64('100'); // строка '100' преобразуется в целочисленное 100 C := StrToInt64(' -12'); // Начальные пробелы игнорируются D := StrToInt64('$1E'); // Шестнадцатеричные значения начинаются с '$' E := StrToInt64('-0x1E'); // ... или с '0x' F := A + B + C + D + E; // Складываем все эти целые числа ShowMessage('A : '+IntToStr(A)); ShowMessage('B : '+IntToStr(B)); ShowMessage('C : '+IntToStr(C)); ShowMessage('D : '+IntToStr(D)); ShowMessage('E : '+IntToStr(E)); ShowMessage('F : '+IntToStr(F)); end;
A : 32 B : 100 C : -12 D : 30 E : -30 F : 120
var A : Int64; begin // Мы перехватим конверсионные ошибки try A := StrToInt64('100 '); // Конечные пробелы не поддерживаются except on Exception : EConvertError do ShowMessage(Exception.Message); end; try A := StrToInt64('$FG'); // 'G' - недопустимая шестнадцатеричная цифра except on Exception : EConvertError do ShowMessage(Exception.Message); end; end;
'100 ' is not a valid integer value '$FG' is not a valid integer value
|