Delphi-Help

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, StdCtrls;

type

  TForm1 = class(TForm)

    StringGrid1: TStringGrid;

    Button1: TButton;

    StringGrid2: TStringGrid;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i,j:Integer;

begin

  for i:=0 to 4 do

  for j:=0 to 5 do

    StringGrid1.Cells[j,i]:=IntToStr(i+j);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  masA: array [0..4,0..5] of real;

  masB: array [0..4]of real;

  i,j:Integer;

begin

 for i:=0 to 4 do

  for j:=0 to 5 do

    masA[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);

 for i:=0 to 3 do

 begin

 masB[i]:=masA[i,0];

  for j:=0 to 4 do

    if (masA[i,j]>masB[i]) then

      masB[i]:=masA[i,j];

 end;

 for i:=0 to 3 do

    StringGrid2.Cells[0,i]:=FloatToStr(masB[i]);

end;

end.