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.