Hi,

ich versuche gerade ein Programm zu schreiben in dem ich eine eigene "class" erstellt habe... Mein Problem ist, dass beim Aufrufen von MeinObjekt.Create; ein Error unter "Application.Run" erscheint.

Mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure A(Sender: TObject);
    procedure B();
    procedure C(x: Integer; y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

TMeinObjekt = class
  private
    va: Integer;
    vb: Integer;
    vc: Integer;
    vd: String;
    ve: String;
    vf: String;
    vg: Real;
    vh: String;
    vi: Integer;
    vj: Integer;
    vk: Integer;
end;

var
  Form1: TForm1;
  MeinObjekt: Array[0..148, 0..95] of TMeinObjekt;

implementation

{$R *.dfm}

procedure TForm1.A(Sender: TObject); //Form.OnActivate
begin
  B();
end;

procedure TForm1.B();
var x, y: Integer;
begin
  for y := 0 to 95 do
    case y of
      0: for x := 1 to 1 do
           C(x, y);
      1: for x := 0 to 3 do
           C(x, y);
      2: for x := 1 to 6 do
           C(x, y);
      // usw.
    end;
end;

procedure TForm1.C(x: Integer; y: Integer);
begin
  MeinObjekt[x, y].Create;
  MeinObjekt[x, y].va := y;
  MeinObjekt[x, y].vb := x;
  MeinObjekt[x, y].vc := y + x;
  // usw.
end;

end.

Ich habe herausgefunden, dass das Programm in der Zeile mit "MeinObjekt[x, y].Create;" einen Fehler meldet, aber ich weiß nicht wieso...

Vielleicht habe ich meine "class" falsch definiert oder MeinObjekt.Create ist nicht der richtige Befehl...

Kann mir jemand vielleicht helfen?

markieren

Delphi-Quellcode:

[...]
  MeinObjekt[x, y] := TMeinObjekt.Create;
[...]

Das ging ja schnell!!!

Danke, jetzt funzt's!



Das hätte ich doch eigentlich selber wissen müssen

Allerdings hast du ja alles unter private. Also kommst du von außen da gar nicht ran.

Zitat von sirius:

Allerdings hast du ja alles unter private. Also kommst du von außen da gar nicht ran.

Er hat Glück. Da die Klasse in derselben Unit deklariert wurde kann man auch außerhalb der Klasse auf deren private-Bereich zugreifen.

Gruß
Neutral General

wenn er strict private genommen hätte, käme er nich ran

Zitat von dajuhsa:

wenn er strict private genommen hätte, käme er nich ran

Mit Delphi 6?

Zitat von sirius:

Allerdings hast du ja alles unter private. Also kommst du von außen da gar nicht ran.

Ich hab ja nur ein Unit

obs auf delphi 6 geht weiß ich nich aber auf 2005.
bei strict private kann man halt nur von der gleichen klasse aus zugreifen und
bei strict protected auch bei abgeleiteten

Meine Frage war nur rein rhetorischer Natur...