Дана матрица A(N, M). Найти ее наибольший элемент и номера строки и столбца, на пересечении которых он находится.

[GalaiAnton]

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

Пожалуйста!
- Да.

Благодарю вас,очень выручили!

[GalaiAnton]

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

Пожалуйста!
- Да.

procedure TForm1.Button2Click(Sender: TObject);
var
 Tstr,TstrBuff:TStringList;
 i,j:Integer;
begin
 
if OpenDialog1.Execute then
Begin
TstrBuff:= TStringList.Create;
TstrBuff.Delimiter:=' ';
 
Tstr:= TStringList.Create;
Tstr.LoadFromFile(OpenDialog1.FileName);
 
StringGrid1.RowCount:= Tstr.Count+1; // задаем количество строк в таблице
 
for i:=0 to Tstr.Count-1 do
 begin
 // определяем, нужно ли расширить таблицу 
 TstrBuff.DelimitedText:=Tstr.Strings[i];
 if TstrBuff.Count> StringGrid1.ColCount-1 then  StringGrid1.ColCount:=TstrBuff.Count+1;
 
 // заполняем очередную строку таблицы соответствующими данными
 StringGrid1.Rows[i+1].Delimiter:=' ';
 StringGrid1.Rows[i+1].DelimitedText:= Tstr.Strings[i];
 end;
Tstr.Free;
TstrBuff.Free;
end;

Подскажите,пожалуйста,как заполнить StringGrid1 с 0 столбца и 0 строки,а то у меня заполняет с 0 строки и 1 столбца,когда я открываю текстовый файл...

[Stilet]

i+1 замени на i

[GalaiAnton]

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

i+1 замени на i

Благодарю Вас,разобрался,все работает!