Erstellen eines Eingabeformulars

[3_of_8]

Evtl. Assembler? Naja, ich glaube das führt hier zu weit.

[DGL-luke]

http://www.delphipraxis.net/internal...ct.php?t=45131

[davar]

Zitat von 3_of_8:

Gibts bei Delphi 3 noch keine dynamischen Arrays?

Wie würde es denn ohne dynamische Arrays aussehen?

Ich habe die Zeile mal geändert in
a: array [1..10] of TCheckBox; aber dann kommt weiter unten in den Zeilen

Delphi-Quellcode:

a[I,J]:=TCheckBox.Create(Self);
a[I,J].parent:=self;
a[I,J].width:=16;
a[I,J].height:=16;
a[I,J].left:=8+I*24;
a[I,J].top:=8+J*24;
a[I,J].visible:=True;
a[I,J].enabled:=True;

bei "a[I,J]"
die Fehlermeldung "Array-Typ erforderlich."

[mkinzler]

Du hast a ja nur als eindimesnionalen Array definiert, verwendest aber 2 Dimensionen!

a: array[1..10,1..10] of TCheckBox;

[davar]

Zitat von mkinzler:

Du hast a ja nur als eindimesnionalen Array definiert, verwendest aber 2 Dimensionen!

a array[1..10,1..10] of TCheckBox;

Da muss man natürlich drauf kommen, Danke!

Aber die Meldungen wollen nicht aufhören..

Jetzt bekomm ich beim Beenden die Fehlermeldung "Runtime Error 216 at 00002AD0"....

[mkinzler]

Ich hab mal das obige Programm angeschaut, du solltest den Array so definieren:

a: array[0..10,0..10] of TCheckBox; weil ja die Grenzen so verwendet werden (Scheife).

[3_of_8]

Wo genau? Wenn dir keine genaue Zeile angezeigt wird, setze bei jeder Anweisung nen Haltepunkt.

[davar]

Zitat von mkinzler:

Ich hab mal das obige Programm angeschaut, du solltest den Array so definieren:

a: array[0..10,0..10] of TCheckBox; weil ja die Grenzen so verwendet werden (Scheife).

Daran hat's gelegen. Nochmals Danke!

MfG

davar

[3_of_8]

Variabel ist das ganze dann natürlich nicht mehr... Leg dir mal ne Delphi 7 Personal oder so zu... auf Englisch am besten, da haste gleich ne Lizenz für Weitergabe von Anwendungen dabei.

[Hawkeye219]

Warum überhaupt Verweise auf die Checkboxen in einem Array speichern? Wenn man beim Erzeugen einer Checkbox einen Owner übergibt, übernimmt der doch die komplette Verwaltung. Durch einen geschickte Benennung der Komponenten kann man sie bei Bedarf über die Methode FindComponent des Owners suchen.

Wir benötigen zunächst eine Routine zum Erzeugen eines Namens für die Checkbox in Reihe aRow, Spalte aCol:

Delphi-Quellcode:

function TForm1.GetCheckboxName (aRow, aCol: Integer): string;
begin
  Result := Format('cxR%.3dC%.3d', [aRow, aCol]);
end;

Die folgende Routine liefert einen Zeiger auf die Checkbox in Reihe aRow, Spalte aCol:

Delphi-Quellcode:

function TForm1.FindCheckbox (aRow, aCol: Integer): TCheckBox;
begin
  Result := FindComponent(GetCheckboxName(aRow, aCol)) AS TCheckBox;
end;

Nun kann man die Checkboxen erzeugen:

Delphi-Quellcode:

var row, col : Integer;
    box      : TCheckBox;

begin
  for row := 0 to 9 do
    for col := 0 to 9 do
    begin
      box := TCheckBox.Create(Self);
      box.Parent := Self;
      box.Name := GetCheckboxName(row, col);
      box.SetBounds (8 + 16 * col, 8 + 16 * row, 14, 14);
      box.Caption := '';
    end;
end;

Der Zugriff auf die Checkbox in Zeile row, Spalte col erfolgt dann z. B. so:
FindCheckbox(row, col).Checked := True; Zusätzlich könnte man die Funktion FindCheckbox noch als Getter-Methode für ein Array-Property benutzen.
Für den produktiven Einsatz sollte natürlich noch eine Überprüfung der Parameter in FindCheckbox eingebaut werden.

Gruß Hawkeye