[Delphi]型変換　IntToStr, CurrToStr – パソコン・スマホの覚え書き

※全てのDelphi(楽天市場で探す・ amazonで探す)で動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル　※説明に必要な部分しか記述していません

IntToStr, CurrToStr, FloatToStr, TryStrToCurr, Valの使用例、実行例です。

フォーム上に TLabel を６個設置し、下記を実行すると

procedure TForm1.Button1Click(Sender: TObject);

var
    c_i: Currency;
    e_i: Extended;
    i: Integer;
    w_str: String;
begin

    //計算もできます
    Label1.Caption := IntToStr(5 + StrToInt('100'));

    Label2.Caption := CurrToStr(5 * StrToCurr('2000'));

    //Currencyは小数第４位までです
    Label3.Caption :=  CurrToStr(3.141592653589793);

 
    Label4.Caption := FloatToStr(3.141592653589793);

    if TryStrToCurr('5,000', c_i) then begin
        Label5.Caption := CurrToStr(c_i);
    end
    else begin
        Label5.Caption := ',や\があったため変換できませんでした';
    end;


    w_str := '123個';
    //Valは数字のみを抽出し変数にセット、最後の変数にはエラーがあった箇所がセットされます
    Val(w_str, e_i, i);
    Label6.Caption := FloatToStr(e_i) + '　文字列"'+ w_str + '"の ' + IntToStr(i) + '番目の文字が変換できませんでした';

end;

このようになります。