[Delphi]型変換 IntToStr, CurrToStr


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

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

 

Delphi関連書籍 amazon

 

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

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は小数第4位までです
    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;

このようになります。

delphi-inttostr-currtostr