Ausgabe Matrix

[n00b_on_knees]

danke für die erklärung, es lässt sich auch compelieren usw., nur kommt nicht das gewünscht ergebnis heraus, sondern etwas in form von:

Delphi-Quellcode:

  
1. Reihe:
-107523520672090937630777833558  0  0
  2. Reihe:-208103014476482916-2028502058-209466112034583920387584

und das ist nicht das ziel. ich poste mal den gesamten quellcode, vielliecht weiß dann jemand auch noch von hier die lösung, oder es hat noch immer mit der ausgabe zu tun.

Delphi-Quellcode:

unit fillarray;

interface

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

type
   TFeld = array [1..3, 1..6] of integer;
  TForm1 = class(TForm)
    mmAus: TMemo;
    btStart: TButton;
    procedure ShowArray(a: TFeld);
    procedure FillArray(a: TFeld);
    procedure btStartClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FillArray(a: TFeld);
//Variablendeklaration
var
  i, j: integer;
begin
  for i:= 1 to 3 do
    for j:=1 to 6 do
      a[i, j]:= random(9);
end;


procedure TForm1.ShowArray(a: TFeld); 
var i, j: integer; 
begin
  for i:=1 to 2 do begin 
    mmAus.Lines.add(format('%3d. Reihe:',[i])); 
    for j:=1 to 6 do 
      mmAus.Lines[i]:= mmAus.Lines[i]+format('%3d',[a[i,j]]);
  end; 
end;

procedure TForm1.btStartClick(Sender: TObject);
//Variablendeklaration
var
  a: TFeld;
begin
  FillArray(a);
  ShowArray(a);
end;

end.