Komega Yaşayan Forum Efsanesi Katılım 9 Tem 2013 Mesajlar 9,706 Tepkime puanı 7 Konum Dünydn .s Kredi 0 10 Tem 2015 #1 Kod: function Comp2Str(N: Comp): String; var TS: String; begin Str(N:0:0, TS);Comp2Str := TS; end;