поиск максимального элемента в столбце Stringgrid Delphi

[mishammm]

Здравствуйте, у меня программа которая табулирует функцию в Stringgrid-е а потом выводит максимальное значение в Edit . Ну так вот в чём проблема, проблема в том, что оно макс. элемент ищет по всей таблице, а нужно только по 3 столбцу
Вот эта часть кода:

max:= strtofloat(stringgrid1.cells[3,1]);
   for i:=1 to Stringgrid1.ColCount do
   If    max<strtoint(stringgrid1.cells[3,i]) then
   max:=strtoint(stringgrid1.cells[3,i]);

    Edit3.Text:=FloatToStr(max);

P.S. проект прилагаю.
Помогите плиз отловить ошибку! Спасибо!

[Stilet]

Во-первых: to Stringgrid1.ColCount-1
Во-вторых: Быть не может чтоб оно пробегало по всем ячейкам...
Ты что-то путаешь.
Впрочем я свое видение покажу:

with StringGrid1.Cols[2] do begin
 max:=StrToIntDef(Strings[0],0);
 for i:=1 to Count-1 do
  if max<StrToIntDef(Strings[i],0) then max:=StrToIntDef(Strings[i],0);
end

P.S. Кстати тебе наверное не ColCount а RowCount нужно...

[mishammm]

Вот полностью весь код:
unit tabl2;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  max,x,dx,y:real;
      n,i,j:integer;
begin





x:=StrToFloat(Edit1.Text);
dx:=StrToFloat(Edit2.Text);
n:=SpinEdit1.Value;


  Stringgrid1.Cells[0,0]:='n';
   Stringgrid1.Cells[1,0]:='x';
    Stringgrid1.Cells[2,0]:='y';

for i:=1 to n do
begin
StringGrid1.RowCount:=i+1;

y:=tan(0.5*x)/(power(x,3)+7.5);
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[1,i]:=FloatToStr(x);
StringGrid1.Cells[2,i]:=FloatToStrF(y,ffFixed,7,3);
x:=x+dx;

end;


with StringGrid1.Cols[2] do begin
 max:=StrToIntDef(Strings[0],0);
 for i:=1 to RowCount-1 do
  if max<StrToIntDef(Strings[i],0) then max:=StrToIntDef(Strings[i],0);

   end;

    Edit3.Text:=FloatToStr(max);

end;


end.

макс теперь вообще в 0 выводит, я понять не могу ошибка где то в цыкле, или с присваиванием значения для переменной max

[min@y™]

Пусть горит в аду тот, кто учит школоту работать с массивами и вообще с числовыми данными через TStringGrid! Сплошные преобразования «строка» <----> «число»! Люди! Человеки! Ну зачем вам этот геморрой?

[mishammm]

Сообщение от min@y™

Пусть горит в аду тот, кто учит школоту работать с массивами и вообще с числовыми данными через TStringGrid! Сплошные преобразования «строка» <----> «число»! Люди! Человеки! Ну зачем вам этот геморрой?

школота? Студент 2 курса не хотите? И да, пожалуйста, не разводите оффтоп

[min@y™]

школота? Студент 2 курса не хотите?

Хочу, поверь! Очень хочу!

И да, пожалуйста, не разводите оффтоп

Ну вот, блин, захочешь научить, как делать хорошо и не плодить себе проблем из ничего - обвиняют.

макс теперь вообще в 0 выводит, я понять не могу ошибка где то в цыкле, или с присваиванием значения для переменной max

for i:=1 to n do
begin
StringGrid1.RowCount:=i+1;

y:=tan(0.5*x)/(power(x,3)+7.5);
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[1,i]:=FloatToStr(x);
StringGrid1.Cells[2,i]:=FloatToStrF(y,ffFixed,7,3); // вещественное ---> строка (3 знака после запятой)
x:=x+dx;

end;


with StringGrid1.Cols[2] do begin
 max:=StrToIntDef(Strings[0],0); // строка ---> целое
 for i:=1 to RowCount-1 do
  if max<StrToIntDef(Strings[i],0) // строка ---> целое
    then max:=StrToIntDef(Strings[i],0); // строка ---> целое

   end;

    Edit3.Text:=FloatToStr(max);

end;

А хранил бы данные в памяти, вообще бы такая проблема не возникла. А говоришь оффтоп. Эх, школота...

[Stilet]

Студент 2 курса не хотите?

Тогда мотай на ус: StringGrid да и вообще все визуальные компоненты предназначены в первую очередь для отображения данных
Хочешь хранить массивы делай это как полагается: array of <тип>.
Преобразования из строк в числа к добру не доведут если работаешь с массивами данных. Если тебя этому учит преподаватель настраивайся сразу писать быдлокоды. Хорошему такой препод или такие методички не научат.

[mishammm]

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

Тогда мотай на ус: StringGrid да и вообще все визуальные компоненты предназначены в первую очередь для отображения данных
Хочешь хранить массивы делай это как полагается: array of <тип>.
Преобразования из строк в числа к добру не доведут если работаешь с массивами данных. Если тебя этому учит преподаватель настраивайся сразу писать быдлокоды. Хорошему такой препод или такие методички не научат.

полностью с вами согласен, преподы вообще ничему не учат, только самообучение спасает, спасибо вам за совет

Сообщение от min@y™

А хранил бы данные в памяти, вообще бы такая проблема не возникла. А говоришь оффтоп. Эх, школота...

извините, я не хотел вас обвинять, я просто немного устал, ну и вы со стороны не правы, насчёт школоты. спасибо за пояснение

[min@y™]

ну и вы со стороны не правы, насчёт школоты

Пока будешь публично быдлокодить, так школотой и останешься, будь ты хоть профессором. Шутка юмора.
А я фигню не посоветую.
Глянь, конфетка какая! Угадай, какой компонент используется.

[Stilet]

вы со стороны не правы, насчёт школоты

Прав. Потому что тебе тоже самое скажет твой работодатель, когда ты какой-то проект вот таким напичкаешь. Да еще и в суд подаст за нарушения ТЗ.
Поверь, я прекрасно знаю что такое быдлокод, потому что мне приходится такие программы в техподдержке обслужвать.