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

名前

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

本文

配慮が足りず、申し訳ありませんでした。
もう一度下に書かせていただきます。
試行錯誤して自分なりに直してみたのですが、次はPAnsiCharとPWideCharに互換性がないと表示されました。何を言われているのかは理解できますが、どうすればいいのかわかりません。

procedure TFormWaypointTracker.ButtonLPClick(Sender: TObject);
　var
  　i:integer;
  　s:AnsiString;
  　nvars:integer;
  　colData:PFloatArray ;
  　lp:THandle ;

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');
    colData:=AllocMem(SizeOf(Double)*2) ;
    if (lp <> 0) then
    begin
       s:= '120' + ' ' + '210';
       str_add_constraint(lp,PAnsiChar(s),1,15000);
       s:= '110' + ' ' + '30';
       str_add_constraint(lp,PAnsiChar(s),1,4000);
       s:= '1' + ' ' + '1';
       str_add_constraint(lp,PAnsiChar(s),1,75);
       s:= '143' + ' ' + '60';
       if  str_set_obj_fn(lp, PAnsiChar(s)) then
     　  begin
       　set_maxim(lp);
      　 if solve(lp)=0 then
    　  with memo1, lines do
        begin
        add('');
        add('Solved');
        add('Optimum variable values are:');
        nvars:=get_nColumns(lp);
        get_variables(lp,@colData);
        add(format('%s: %d', [get_col_name(lp, 1), colData^[i]]));
        add(format('%s: %d', [get_col_name(lp, 2), colData^[1]]));
        add(format('Objective value: %d', [get_objective(lp)]));
        end;
       end;
    end;
  end;
  delete_lp(lp);
 end;

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

戻る