この発言に対し以下のコメントが寄せられています

#00189　Atelier Macchan さん　RE:数値を３桁ごとにカンマのある文字列に






//----------------------------------------------------------
// Value の数値を、３桁ごとにカンマのある形で
// Stringにする
//----------------------------------------------------------
function IntToCommaStr(Value: Integer): string;
var
  I: Integer;
begin
  Result := IntToStr(Value);
  I := Length(Result);
  while I > 3 do begin
    Dec(I, 3);
    Insert(',', Result, I + 1);
  end;
end;

　　　　平成９年11月12日(水)　　ｆｕｍｉｋａ(YRK00111@niftyserve.or.jp)
　　         ★☆★　http://www2m.bigloge.ne.jp/~fumika/　★☆★

Original document by ｆｕｍｉｋａ    氏 ID:(YRK00111)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。