Delphiで簡単な線形計画を解きたいです (ID:150489)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > しかし、実行を押してもbutton"クリックしても、memoに答えが表示されませんでした。 > with memo1 do > begin {delete any previous solution display} の下に ShowMessage('1'); > if (lp <> 0) then > begin の下に ShowMessage('2'); > if str_set_obj_fn(lp, PAnsiChar(s)) then > 　 begin の下に ShowMessage('3'); > 　 if solve(lp)=0 then > 　 with memo1, lines do > begin の下に ShowMessage('4'); をそれぞれ追加して、コンパイル＆実行し、クリックしたら、メッセージは表示されますか？