So-net無料ブログ作成

FloatToStrF() [AD Delphi Script]

「Altium Designer」のDelphiスクリプトにて、キリ穴に名前を付けようとしました。

NTHのパッド名にそのまま直径DIの値をいれてNTH1.0としたい場合があります。
Pad.Name := 'NTH'+ FloatToStr(DI) ;

この場合は1.1などの場合はNTH1.1となりますが1.0の場合は小数点以下の文字が消えて
NTH1となってしまいます。
そこで下記のようにすればNTH1.0となってくれました。

Pad.Name := 'NTH'+ FloatToStrF(DI,ffFixed,2,1) ;

FloatToStrが動作するのは当然ですが、FloatToStrFが動作するか不安でしたが問題なしでした。
穴径DIは5mmまでと、入力側でリミッターを掛けてあるので有効数字、小数点はこれぐらいでも
いいでしょう。

手探りの中でDelphiスクリプトでのプログラミングをしているので知らないことばかりです。


nice!(0)  コメント(0)