Zufällige Zahlen im Array + Ausgeben in Stringgrid

[Sir Rufo]

Ein weiterer Tipp für mehr Übersichtlichkeit und quasi Dokumentieren durch Programmieren:

Delphi-Quellcode:

TForm1 = class( TForm )
...
private
  procedure InitArrayWithRandomData;
  procedure ShowArrayInGrid;
  procedure StoreGridInArray;
  ...
end;

procedure TForm1.FormCreate( Sender : TObject );
begin
  InitArrayWithRandomData;
end;

procedure TForm1.Button1Click( Sender : TObject );
begin
  ShowArrayInGrid;
end;

procedure TForm1.Button2Click( Sender : TObject );
begin
  StoreGridInArray;
end;

Schon kannst du dir einen grossen Teil der Kommentare sparen und jeder (auch du nach ein paar Tagen/Wochen/Monaten) sieht sofort, welche Aktion beim Klick auf den Button passieren soll bzw. was in der Methode selber vonstatten geht.

[himitsu]

Kann man auch, ohne dafür extra Prozeduren zu machen, aber man sollte sowieso den Komponenten ordentliche Namen geben, und damit auch deren Events.
(Button1 und Button1Click sagen ja sowas von garnichts zu dem, was sie machen)

[CShepard]

Danke an alle für die Hilfe.
Sorry, ich wusste nicht, wo Arrays deklariert werden müssen. Hab das unter type über private versucht und sonst irgendwo, doch es hat nie geklappt... darum wurde ich etwas erfinderisch und habe den Array immer in jeder Prozedur deklariert. Dann hielt ich es für richtig, da keine Zeile mehr rot war.
Im Unterricht haben wir erklärt bekommen, wie der Syntax aussieht und was Arrays bewirken. Nur WO wir Arrays deklarieren müssen- das wurde nicht erklärt und wir haben dazu auch nichts aufgeschrieben.

@Sir Rufo: Guter Tipp, ich hoffe, ich darf im Unterricht später auch solche Befehle anwenden. Bis jetzt dürfen wir alles nur so aufschreiben, wie wir es gelehrt bekommen haben... leider, denn mit diesen Befehlen spart man etwas Arbeit.

@Baden Power: Tut mir leid, ich verspreche, ich werde beim nächsten Mal mehr auf Anschaulichkeit achten, bin noch neu hier.

[Sir Rufo]

Zitat von CShepard:

@Sir Rufo: Guter Tipp, ich hoffe, ich darf im Unterricht später auch solche Befehle anwenden. Bis jetzt dürfen wir alles nur so aufschreiben, wie wir es gelehrt bekommen haben... leider, denn mit diesen Befehlen spart man etwas Arbeit.

Es sind ja gar keine Befehle, sondern Methoden der Klasse, die du selber schreibst.

Ziel ist es dabei den eigenen Code in besonders übersichtliche und möglichst kleine Häppchen zu teilen und eben keine Happen oder ganze Brocken zu erstellen.

Ich kann mir nicht vorstellen, dass das verboten ist. Das verwechselst du anscheinend mit der Verwendung von irgendwelchen Delphi-Units, wo einiges/vieles schon fertig existiert, ihr aber diese Grundlagen ja lernen sollt -> selber implementieren.

[BadenPower]

Zitat von CShepard:

Im Unterricht haben wir erklärt bekommen, wie der Syntax aussieht und was Arrays bewirken. Nur WO wir Arrays deklarieren müssen- das wurde nicht erklärt und wir haben dazu auch nichts aufgeschrieben.

Es geht hierbei nicht um Array, sondern um alle Variable-Typen.

Wo etwas deklariert wird ist entscheident für die Sichtbarkeit der Variable.

Unten einmal ein kleines Beispiel in welchem ich 3 Variablen mit dem Namen ZufallsZahl erstellt habe, welche jeweils verschiedene Gültigkeitsbereiche haben.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, Forms, Classes, Controls,;

var
  ZufallsZahl: Integer;  // gültig in der ganzen Anwendung

type
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
  private
   ZufallsZahl: Integer;  // gültig in der ganzen Klasse Form1
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm.Button1Click(Sender: TObject);
var
  ZufallsZahl: Integer;  // nur gültig in diese Procedure
begin
//
end;

Als Laie könnte man meinen, dass dies ein und dieselbe Variable wäre, die ist aber nicht so.

Es sind tatsächlich 3 verschiedene Variablen, welche jeweils einen eigenen Wert haben können.

Durch eine erneute Variabledeklaration mit dem gleichen Namen in einem untergeorneteten Bereich wird die übergeordnete Variable verdeckt.

[Sir Rufo]

Du hattest noch zeigen können, wie man auf die anderen Varaiblen zugreifen kann, wenn benötigt

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, Forms, Classes, Controls,;

var
  ZufallsZahl: Integer; // gültig in der ganzen Anwendung, wo dise Unit in den uses steht

type
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
  private
   ZufallsZahl: Integer; // gültig in der ganzen Klasse Form1
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm.Button1Click(Sender: TObject);
var
  ZufallsZahl: Integer; // nur gültig in diese Procedure
begin
  ZufallsZahl := 1; // lokale Variable
  Self.ZufallsZahl := 2; // Feld der Klasse TForm1
  Unit1.ZufallsZahl := 3; // Unit Variable
end;