請教各位高手 Variant如何轉成Float >"<

Hi MidasFan,

procedure TForm1.Button1Click(Sender: TObject);
var
  V : Variant;
  D : Double;
begin
  V := '100';
  D := V;
  Showmessage(FloatToStr(D));
end;

詳見 Delphi Help 中的 Variant type conversions

var
  V1, V2, V3, V4, V5: Variant;
  I: Integer;
  D: Double;
  S: string;
begin
  V1 := 1; { integer value }
  V2 := 1234.5678; { real value }
  V3 := 'Hello world!'; { string value }
  V4 := '1000'; { string value }
  V5 := V1   V2   V4; { real value 2235.5678}
  I := V1; { I = 1 (integer value) }
  D := V2; { D = 1234.5678 (real value) }
  S := V3; { S = 'Hello world!' (string value) }
  I := V4; { I = 1000 (integer value) }
  S := V5; { S = '2235.5678' (string value) }
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

StrToFloat(VarToStr(i));

procedure TForm1.Button1Click(Sender: TObject);
var
  z:Variant;
  X:double;
begin
  z:='123.456';
  x:=Double(z);
end;

喜歡看日劇的朋友可以到這邊看看 http://forum.nanodvd.org/index.php