Witam,
mam w tablicy wartości pobrane z Editów, suma Editów ma wynosić 100 jeśli wartości są poprawnie wykonane. Jest to warunek dla dalszych obliczeń. Problem polega na tym, że w tablicy jest 100 a IF p[i] = 100 THEN ... nie wykonuje instrukcji. Co ciekawe, czasem ten warunek się wykona przy innej tablicy.
Oto fragment kodu:
p[1] := StrToFloat(Edit16.Text);
p[2] := p[1] + (StrToFloat(Edit15.Text));
p[3] := p[2] + (StrToFloat(Edit14.Text));
p[4] := p[3] + (StrToFloat(Edit13.Text));
p[5] := p[4] + (StrToFloat(Edit12.Text));
p[6] := p[5] + (StrToFloat(Edit11.Text));
p[7] := p[6] + (StrToFloat(Edit10.Text));
p[8] := p[7] + (StrToFloat(Edit9.Text));
p[9] := p[8] + (StrToFloat(Edit8.Text));
p[10] := p[9] + (StrToFloat(Edit7.Text));
p[11] := p[10] + (StrToFloat(Edit6.Text));
p[12] := p[11] + (StrToFloat(Edit5.Text));
p[13] := p[12] + (StrToFloat(Edit4.Text));
p[14] := p[13] + (StrToFloat(Edit3.Text));
p[15] := p[14] + (StrToFloat(Edit2.Text));
p[16] := p[15] + (StrToFloat(Edit1.Text));
fl := false;
for i := 1 to 16 do
if p[i] = 100 then
begin
fl := true;
end;