掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
計算式を文字列に表記する方法 (ID:10652)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなことかな function ToFormula(siki:string;a,b:integer):string; begin siki := StringReplace(siki,'a','%0:d',[rfReplaceAll]); siki := StringReplace(siki,'b','%1:d',[rfReplaceAll]); result := Format(siki,[a,b]); end; procedure TForm1.Button1Click(Sender: TObject); var a,b:integer; siki:string; begin a := 1; b := 2; siki := 'c = a + b'; Label1.Caption := ToFormula(siki,a,b); siki := 'c = a*a + b*b'; Label2.Caption := ToFormula(siki,a,b); siki := 'c = a*b - a/b +3'; Label3.Caption := ToFormula(siki,a,b); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.