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

名前

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

本文 Delphiで簡単なLPを解きたいのですが、上手くコンパイル出来ませんでした。どのように直せばいいかアドバイス頂きたいです。 エラーの内容としては ①AnsiStringからPwideCharへの型キャストは見たがっている可能性があります。 ②nvarsに代入された値は使われてない。 と表示されています。 以下のサイトのサンプロコードを参考にしながら書いてみました。http://delphiforfun.org/programs/delphi_techniques/LPDemo.htm procedure Button1Click(Sender: TObject); var i:integer; s:AnsiString; nvars:integer; colData:PFloatArray; begin with memo1 do begin {delete any previous solution display} for i:=lines.count-1 downto 0 do begin if (length(lines[i])>=2) and (copy(lines[i],1,2)= '--') then break else lines.delete(i); end; end; begin lp := make_lp(0,2); set_col_name(lp, 1, 'x'); set_col_name(lp, 2, 'y'); if (lp <>0) then begin s:= '120' + ' ' + '210'; str_add_constraint(lp,PChar(s),1,15000); s:= '110' + ' ' + '30'; str_add_constraint(lp,PChar(s),1,4000); s:= '1' + ' ' + '1'; str_add_constraint(lp,PChar(s),1,75); s:= '143' + ' ' + '60'; if str_set_obj_fn(lp, pchar(s)) then begin set_maxim(lp); if solve(lp)=0 then with memo1, lines do begin add(''); add('Solved'); add('Optimum variable values are:'); //:=get_nColumns(lp); get_variables(lp,colData); add(format('%s: %f', [get_col_name(lp, 1), colData^[0]])); add(format('%s: %f', [get_col_name(lp, 2), colData^[1]])); add(format('Objective value: %f', [get_objective(lp)])); end; end; end; end; delete_lp(lp); end;