Frage zu Delphi

[Freezy]

War nicht einfach... ich hasse solche verschachtelungen xD
Sind genau 38 Codezeilen. Ich hoffe du bringst die erfahrung mit das einzubauen, ansonsten wirkts unglaubwürdig

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    IntData: array[0..11,0..11] of Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  x,y: Integer;
begin
  Randomize;
  for x := 0 to 10 do
    for y := 0 to 10 do
      if (x = 0) or (y = 0) then begin
        IntData[x,0] := x;
        IntData[0,y] := y;
      end else begin
        IntData[x,y] := Random(100);
        IntData[x,11] := IntData[x,11] + IntData[x,y];
        IntData[11,y] := IntData[11,y] + IntData[x,y];
      end;
  for x := 0 to 11 do
    for y := 0 to 11 do
     StringGrid1.Cells[x,y] := IntToStr(IntData[x,y]);
end;

end.

Edit: Öhhh... momment... Ich hab da wohl was falsch verstanden ^^ So sinds sogar nur 35 Zeilen

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  x,y: Integer;
begin
  Randomize;
  for x := 1 to 10 do
    for y := 1 to 10 do
      begin
        IntData[x,y] := Random(100);
        IntData[x,11] := IntData[x,11] + IntData[x,y];
        IntData[11,y] := IntData[11,y] + IntData[x,y];
      end;
  for x := 1 to 11 do
    for y := 1 to 11 do
     StringGrid1.Cells[x,y] := IntToStr(IntData[x,y]);
end;

Natürlich würde das irgendwie ohne den Array 'IntData' gehen. Aber dann müsstest du ellenlange Zeilen schreiben weil du immer StrToInt casten musst.

So siehts dann aus: