売)装備ｾｯﾄ・紹介状ｾｯﾄ

装備と紹介状を???販売します。
鯖は??鯖です。
再販はしませんのでよければ???ください。

a 装備???A(小粋な着物?????はじめてのY????????????黒?猫耳藍)
b 装備???B(???????(??8回)?????????(??7回))
c 紹介状???(機械時代の????????????な???????1個)

a 15000WM
b リネージュ2 RMT
8000WM
c 8000WM

Fraction

function Fraction(decimal: double): string; アイオン 掲示板
var
intNumerator, intDenominator, intNegative: integer;
dblFraction, dblDecimal, dblAccuracy, dblinteger: Double;
begin
dblDecimal := decimal;
if trunc(decimal) = decimal then
result := floattostr(decimal)
else
begin
if abs(decimal) > 1 then /
begin
dblinteger := trunc(decimal);
dblDecimal := abs(frac(decimal));
end
else dblDecimal := decimal;

dblAccuracy := 0.01;
intNumerator := 0;
intDenominator := 1;
intNegative := 1;
if dblDecimal < 0 then intNegative := -1;
dblFraction := 0;
while Abs(dblFraction - dblDecimal) > dblAccuracy do
begin
if Abs(dblFraction) > Abs(dblDecimal) then
intDenominator := intDenominator + 1
else
intNumerator := intNumerator + intNegative;
dblFraction := intNumerator / intDenominator;
end;
// edit2.Text := inttostr(intNumerator) + '/' + inttostr(intDenominator);
if abs(decimal) > 1 then
result := floattostr(dblinteger) + ' ' + inttostr(intNumerator) + '/' + inttostr(intDenominator)
else
result := inttostr(intNumerator) + '/' + inttostr(intDenominator);
end;
end;