Ошибка

[ASPknopixx]

Добрый вечер! Пожалуйста не подскажите где ошибка. Симплекс метод

[ASPknopixx]

при компиляции выдает ошибку

[ASPknopixx]

вот эта ошибка

[Valio]

Исходник не смотрел, но ошибка значит что происходит попытка перевода строки в число, причём в строке пустота = ''.

К примеру если Edit1.Text = '';
То следующая строка вызовет эту ошибку:

StrToFloat(Edit1.Text)

[ASPknopixx]

Вот исходник

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, Spin,Simplex;

type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
Memo1: TMemo;
StringGrid1: TStringGrid;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Simplex:TSimplex;
m,n,i,j:integer;
simp:TSimplex;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
m:=4;
n:=2;
stringgrid1.RowCount:=m;
stringgrid1.ColCount:=n+3;
stringgrid1.Cells[0,1]:='содержание СВ,%';
stringgrid1.Cells[0,2]:='энергетическая ценность';
stringgrid1.Cells[0,3]:='цена';
stringgrid1.Cells[n+1,0]:='знак ограничения';
stringgrid1.Cells[n+2,0]:='ограничения';

end;


procedure TForm1.Button1Click(Sender: TObject);
var L,A,res:TextArray;
op:TOperation;
B:extended;
i,j:integer;
max:boolean;
result:string;
begin
SetLength(L,n);
SetLength(A,n);
if radiogroup1.ItemIndex=0 then max:=true else max:=false;
for i:=1 to n do
L[i-1]:=strtofloat(stringgrid1.Cells[i,m+1]);
simp:=TSimplex.Create(L,max);

for j:=1 to m do
begin
for i:=1 to n do
A[i-1] := StrToFloat(stringgrid1.Cells[i, j]);
B := StrToFloat(stringgrid1.Cells[n+2, j]);
op := Less;
if stringgrid1.Cells[n+1, j] = '<' then op := Less;
if stringgrid1.Cells[n+1, j] = '=' then op := Equal;
if stringgrid1.Cells[n+1, j] = '>' then op := Greater;
simp.AddCons(B, A, op);
end;

Memo1.Clear;
if (simp.Solve=SIMPLEX_DONE) then begin
Memo1.Lines.Add('ЦЕНА: ' + FloatToStrF(simp.GetMin, ffGeneral, 5, 4));
SetLength(res, n);
res := simp.GetSolution;
for i:=1 to n do
Memo1.Lines.Add( 'ингредиенты "' + stringgrid1.cells[i, 0] + '": ' + FloatToStrF(res[i-1], ffGeneral, 5, 4));
end
else
Memo1.Lines.Add('решение не найдено!');
Simp.Free;
end;


end.

Симплекс в отдельном файле он работает.