更改爲整數

Question

大家我需要一些ESAY辦法從整型和字符串在Delphi改變7

var 
Str:String; 
Int:Integer; 
// Here what i need to do 
Str:='123'; 
Int:=Str.AsInteger 
// or use this 
Int:=123; 
Str=Int.AsString; 

Answer 1

type 
TForm1 = class(TForm) 
Button1: TButton; 
Edit1: TEdit; 
procedure Button1Click(Sender: TObject); 
end; 

Integer = class 
FValue: System.Integer; 
function ToString: string; 
public 
property Value: System.Integer read FValue write FValue; 
end; 

var 
Form1: TForm1; 

implementation 

function Integer.ToString: string; 
begin 
Str(FValue, Result); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
Int:integer; 
begin 
Int.Value:=45; 
Edit1.Text:=Int.ToString; 
end; 
end 

Answer 2

您可以使用：

StrToInt(s) 

和

IntToStr(i) 

功能。

Answer 3

最簡單的方法是使用這兩種方法：

IntVal := StrToInt(StrVal); // will throw EConvertError if not an integer 
StrVal := IntToStr(IntVal); // will always work 

您還可以使用更多的容錯TryStrToInt（遠比捕捉EConvertError越好）：

if not TryStrToInt(StrVal, IntVal) then 
    begin 
    // error handling 
    end; 

如果你想訴諸默認值，而不是顯式處理錯誤，您可以使用：

IntVal := StrToIntDef(StrVal, 42); // will return 42 if StrVal cannot be converted 

Answer 4

如果您使用的是德爾福最新版本，除了以前的答案，您也可以使用僞OOP語法您想當初 - 命名約定只是ToXXX不AsXXX：

Int := Str.ToInteger 
Str := Int.ToString; 

該整數助手還增加了解析和方法的TryParse：

Int := Integer.Parse(Str); 
if Integer.TryParse(Str, Int) then //...