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;

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;

delete_lp(lp);

end;

←解決時は質問者本人がここをチェックしてください。

戻る