Schiffe versenken programmieren

[Bjoerk]

Laß dich nicht von dir selbst entmutigen. Wenn die Einstellung stimmt wirst du hier immer Leute finden die dir gern weiterhelfen.

Weiteres kleines Array Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  MaxRowCount = 2;
  MaxColCount = 2;
type
  TIntegerArray = array [0..MaxRowCount - 1, 0..MaxColCount - 1] of integer;
  TFloatArray = array [0..MaxRowCount - 1, 0..MaxColCount - 1] of double;
  TStringArray = array [0..MaxRowCount - 1, 0..MaxColCount - 1] of string;
var
  IntegerArray: TIntegerArray;
  FloatArray: TFloatArray;
  StringArray: TStringArray;
  Row, Col: integer;
begin
  for Row := 0 to MaxRowCount - 1 do
    for Col := 0 to MaxColCount - 1 do
    begin
      IntegerArray[Row, Col] := 10 * Row + Col;
      FloatArray[Row, Col] := IntegerArray[Row, Col] / 3;
      StringArray[Row, Col] := 'Text ' + IntToStr(Row) + ' / ' + IntToStr(Col);
    end;
  for Row := 0 to MaxRowCount - 1 do
    for Col := 0 to MaxColCount - 1 do
      ShowMessage(Format('IntegerArray(%d %d) = %d', [Row, Col, IntegerArray[Row, Col]]));
  for Row := 0 to MaxRowCount - 1 do
    for Col := 0 to MaxColCount - 1 do
      ShowMessage(Format('FloatArray(%d %d) = %.4f', [Row, Col, FloatArray[Row, Col]]));
  for Row := 0 to MaxRowCount - 1 do
    for Col := 0 to MaxColCount - 1 do
      ShowMessage(Format('StringArray(%d %d) = %s', [Row, Col, StringArray[Row, Col]]));
end;