сравнение листбоксво делфи

[Zer0]

охохох, ну тогда для начала тип массива поменяй на float, а эту функцию убери вообще

[SonicBob]

procedure TForm1.Button29Click(Sender: TObject);
var
m1,m2,m3:array of array of Double;//integer;
n,i,j,l,p:integer;
mc1,mc2,mc3,sr:Double;//integer;
Count1: Integer;
begin
panel25.Visible:=false;
panel26.Visible:=true;
label72.Visible:=true;
label75.Visible:=true;

begin//ìàñèâ íîìåð 1 (z1)
n:=ListBox1.Items.Count;
setlength(m1,n,n) ;
for i:=0 to n-1 do
for j:=0 to 0 do
for p:=0 to ListBox4.Items.count-1 do
begin
m1[i,j]:=strtoint( ListBox4.Items.strings[p]);

mc1:=(m1[i,j]);
end;
end;

begin//ìàñèâ íîìåð 2 (z2)
n:=ListBox1.Items.Count;
setlength(m2,n,n) ;
for i:=0 to n-1 do
for j:=0 to 0 do
for p:=0 to ListBox3.Items.count-1 do
begin
m2[i,j]:=strtoint( ListBox14.Items.strings[p]);

mc2:=(m2[i,j]);
end;
end;

m3[i,j]:=(sr) ;
mc3:= (m3[i,j]);
T1 := TMyThread1.Create(False);
T2 := TMyThread2.Create(False);
ListBox19.Items.Add(floattostr(mc3));
Count1:=ListBox19.Items.Count;
Label72.Caption:= IntToStr(Count1);
end;

поменял немного переменные но щас получаю ошибку
"-15,70" is not a valid integer value
понимаю что проблема в переменных но не понимаю как исправить(явно надо больше орешков есть)

[Stilet]

Логично. Поставь в начале определение DecimalSeparator:=','; и тогда в вещественных указывай запятую, или оставь так как есть но тогда ставь точку вместо запятой.

[SonicBob]

Сообщение от Stilet

Логично. Поставь в начале определение DecimalSeparator:=','; и тогда в вещественных указывай запятую, или оставь так как есть но тогда ставь точку вместо запятой.

можно подробней куда надо прописать?

[Stilet]

Да хотя бы после первого Бегина

[SonicBob]

все равно таже ошибка мб это из за минуса?

[Stilet]

Врядли. Замени тогда все strtoint на strtointdef
или так:

if not TryStrToInt(Trim(ListBox14.Items[p]),m2[i,j]) then ShowMessage(ListBox14.Items[p]+' не корректное число')

[SonicBob]

not enough actual parameters получаю если заменить все strtoint на strtointdef
types of actual and formal var parameters must be identical если вотнуть строчку. листы же не надо в варе прописывать?

[Stilet]

not enough actual parameters получаю если заменить все strtoint на strtointdef

Бегом хелп читать по этой функции!!!

[SonicBob]

Сообщение от Stilet

Бегом хелп читать по этой функции!!!

прочитал, понял, исправил ) полезная функция не знал про такую
НО

в листе результат сравнение получил не понятный совсем результат (ожидаемый результат 0, 0, 0 но не как не то что получилось)
и еще я ожидал что если записать в поток то не будет вешать прогу во время расчетов а оно вешает еще и как 3 строки норм а полный файл не хочет работать вешается причем если делать через циклы то можно хотяб форму подвигать а щас вабще ни на что не реагирует, в каком направлении искать причину ?