Bir tamsayı değişkene atamadan kayan nokta değerine en iyi nasıl dönüştürebilirim?

Question

Bir ara değişkene atamadan bir tam sayıdan kayan nokta değerine nasıl dönüştürüleceğini bilmek isterim. Söz konusu kod şuna benzer: Bu açıkça zamanında başarısız

Format('Theoretical peak scaling %6.2f', [ThreadCount]) 

ThreadCount bir tam sayıdır çünkü.

ben bariz

Format('Theoretical peak scaling %6.2f', [Double(ThreadCount)]) 

denenmiş ve derleyici

E2089 Invalid typecast 

ile ben

Format('Theoretical peak scaling %6.2f', [ThreadCount*1.0]) 

yazabilirsiniz biliyorum reddeder ama bu kötü okur ve sadece bir geleceği teşvik edecek çarpan, çarpanı yanlışlıkla kaldıracak.

Ara değişken olmadan bunları yapmanın temiz bir yolu olduğunu bilen var mı?

Answer 1

Akademik ve ben de bir fonksiyon veya * 1,0 kullanmayı tercih ediyorum ama bu Bu belki saçma hissediyor

Format('Theoretical peak scaling %6.2f', [Double(Variant(ThreadCount))]) 

Answer 2

basit bir işlev kullanılamaz:

function IntToDouble(const AInt: Integer): Double; 
begin 
    Result := AInt; 
end; 


Format('Theoretical peak scaling %6.2f', [IntToDouble(ThreadCount)]); 

Answer 3

çalışır ... ama o bir tamsayı ise neden sadece değil:

Format('Theoretical peak scaling %3d.00', [ThreadCount]); 

size hiç ondalık poi sonra sıfır ama bir şey zorunda gidiyoruz gibi değil nt, değil mi?

Format('Theoretical peak scaling %3d.00', [ThreadCount]) 

Tamsayı THREADCOUNT asla herhangi kısmi bölümünü sahip oluyor, yüzden gibi verileri dizede fraksiyonel sıfır koymak ve almak gibi doğru olurdu:

Answer 4

Ayrıca böyle bir şey yapabileceğini tamsayı.

type 
    TIntHelper = record helper for Integer 
    function AsFloat : Double; 
    end; 

function TIntHelper.AsFloat: Double; 
begin 
    Result := Self; 
end; 

Format('Theoretical peak scaling %6.2f', [ThreadCount.AsFloat]) 

Bu ancak Embarcadero bazı kısıtlamalarla birlikte, XE3 şunlar eklenmiştir:;>

Answer 5

Sen içsel türleri için bir record helper kullanmak alternatif var. Sadece bir yardımcı kişinin kapsama alanı olabileceği için, Emarcadero bu özelliğin yalnızca RTL içinde kullanılması gerektiğini öne sürmektedir. Marco Cantu dan

Alıntı: biz yazmaya karşı tavsiye

• senin

• (biz desteklemeyen türleri için geçici bir önlem olarak bu yapmak isteyebilirsiniz rağmen) kendi Sebep, sınıf kuralı başına sadece bir yardımcı değil, aynı zamanda bu davranış değişikliğinin gelecekteki farklı derleyici mekanizmasıyla değişmesidir. , eğer bunun için varsa, geleceğin nefesini tutmayın.

Referans: On Record/Class/Type Helpers.

Güncelleme: XE4 yılında, tamsayılar, TIntegerHelper için yerleşik bir yardımcı sınıf, bir yöntemi ToDouble sahiptir. dil elemanları yerleşik RTTI kullanma

---

böyle çözülebilir:

Format('Theoretical peak scaling %6.2f', 
    [TValue.From<Integer>(ThreadCount).AsExtended]) 

---

Hemen FTR, bir kriter gösterir TValue.From<Integer>(i).AsExtended 200 iken Double(Variant(i)) hem de satır içi yardımcı i.AsFloat, karşılaştırılabilir olduğunu + kat daha yavaş.