Kod: Tümünü seç
i := StrToInt(Edit1.Text)
Kod: Tümünü seç
i := StrToInt(Edit1.Text)
Kod: Tümünü seç
i := StrToIntDef(Edit1.Text, -1)
Kod: Tümünü seç
if TryStrToInt(Edit1.Text, i) then begin
ShowMessage(IntToStr(i)+' değeri girildi.');//Edit1.Text
end else begin
ShowMessage(Edit1.Text+' sayısal bir değer değildir!');
end;