Delphi

tabel_1
+----------+-------+------------+
| id_nreal | no_nt      | tgl_nt          |
+----------+-------+------------+
| 3              | 01a     | 2013-01-01 |
+----------+-------+------------+
procedure tform1.buttom1click(Sender: TObject);
var v,code : integer;
begin
   val(tabel_1no_nt,v,code);//format val(s:string;var V;var code:integer)
edit1.text := inttostr(v);

output edit1 = 1;