variant tı decimale nasıl çeviririm

[a4tech]

variant decimal veriye nasıl çeviririm bu hangi function la yapılıyor...

[gkimirti]

variant degiskeni (eger gerceklesmesi mümkünse) istediginiz tipte degiskene aktarabilirsiniz.

Kod: Tümünü seç

var
   v:variant;
   i: Integer;
begin
   v:='123';
    i:=v;
    ShowMessage(IntToStr(i));
end;

eger mümükün olamayacak bir dönüşüm ise delphi bir exception olusturur.
(v:='322fs' yi integer bir degiskene atamak gibi)

[a4tech]

Kod: Tümünü seç

var
  Form1: TForm1;
  p:integer;
  v,sayfa:variant;{v excel prg, sayfa calisma sayfasi}
  xxx,s,a,d:integer;
  r:variant;

bunlar değişkenlerim.....ama aşağıda fieldların özelliklerinide verececem database deki fieldların tabi....dönüştüremedim olmuyor...

begin
v:=createoleobject('excel.application');//excel oluşturuldu
v.workbooks.add(OpenDialog1.FileName);//Dosya excele eklendi
sayfa:=v.workbooks[1].worksheets[1];//
r:=v.activeworkbook.worksheets[1];//Sayfa İçi İşlemler için değişken atama
                                  

Kod: Tümünü seç

ADOTable1.Append;
ADOTable1STOK_KODU.Value:=r.cells[d,1];
ADOTable1FISNO.Value:=r.cells[d,2];
ADOTable1STHAR_GCMIK.Value:=(r.cells[d,3]);

mesela burda GCMIK isimli sql server deki field da gönderemedim hiç bir şekilde olmadı...herşeyi denedim...Fieldın özelliği ise sql server 2000 deki fieldın Decimal (12)

Şimdiden teşekkür ederim...