小问题

Question

1.gdb格式的文件是什么文件，用什么打开可以查看其内容??
    2.label1我怎么对它进行超连结，点击它就可以打开一个网站？？
　　　　3.tryStrToInt它的用法这样写为什么不行？
　　　　　　　if tryStrToInt(edit1.text) then
                 .....
              该怎么写？？、

Answer 1

var
 i:integer;
begin
if tryStrToInt(edit1.text,i) then
begin
  showmessage('dd');
end;要有一个接受整形的变量

Answer 2

１．gdb不是普通文件、是Interbase、在Interbase環境下打开。２．
var r: Double;
if TryStrToFloat(edit1.Text,r) then 
begin
   edit1.Text := formatfloat('.00;',r);
end;３．用TWebBrowser控件
procedure TForm1.Label1Click(Sender: TObject);
begin
  Label1.Caption := 'http://www.yahoo.com';
  WebBrowser1.Navigate(Label1.Caption);
end;

Answer 3

procedure TForm1.Label1Click(Sender: TObject);
begin
   ShellExecute(Handle, 'open', PChar('http://www.sohu.com'),PChar('IEXPLORE.EXE'), nil, SW_Normal);
end;第二个问题，在click事件中写