Почему постоянно один и тотже минимальный элемент?

[ImmortalAlexSan]

min:=a[1,1]; 
For i:=1 to m do
For j:=1 to m do
begin
If a[i,j]<min then
If (pos('/ ',Form1.StringGrid1.Cells[i,j])=0) or (pos('. ',Form1.StringGrid1.Cells[i,j])=0) then
begin
min:=a[i,j];
it:=i;
jt:=j;
end;
end;

При каждом нажатии на кнопку на форме в Stringgrid должны появляться '/' и '.' И это условие должно учитываться в нахождении минимального элемента. А оно пропускается!!! Почему?

[evg_m]

If (pos('/ ',Form1.StringGrid1.Cells[i,j])=0) AND (pos('. ',Form1.StringGrid1.Cells[i,j])=0) then

[ImmortalAlexSan]

Не работает так. Почему-то элемент a[1,1] постоянно минимуу присваивает, программа просто тупо пропускает этот оператор!!!

[NiCola999]

If (pos('/ ',Form1.StringGrid1.Cells[i,j])=0) And (pos('. ',Form1.StringGrid1.Cells[i,j])=0)

может клетки не те читает?

[ImmortalAlexSan]

Если вы пишите в условии and значит программа будет думать, что вы хотите проверить наличие в клетке стринггрида символов '/' и '.' А то, что проблема в строчке min:=a[1,1]... Ведь минимальный элемент с чем надо сравнивать не меняется!!! он остается a[1,1], а надо, чтобы, за номинальный минимальный брался тот элемент, в ячейки которого отсутствовали символы '/' ИЛИ '.' Проблема решена своими силами, но спасибо, что пытались помочь.

[Stilet]

Тебе нужно чтоб min:=a[i,j]; срабатывал если . и / найдены в клетке?
Тогда тебе не равно нужно писать потому что pos возвращает позицию найденного и если она не 0 то такое найдено:

If (pos('/ ',Form1.StringGrid1.Cells[i,j])<>0) or (pos('. ',Form1.StringGrid1.Cells[i,j])<>0) then

[ImmortalAlexSan]

Так ведь pos может быть не равно 0, а в случае <>, оно ведь может быть и >0, следовательно стоит ограничиться только знаком < В любом случае я разобрался уже. А делал я программу по распределению грузов по их минимальной стоимости, если надо - выложу код. И в моем случае pos просто не может быть = 0, так получается из распределения.