problem mit eigener class

[gangs-taas]

hey,
ich wollte mir eine eigene Klasse einrichten, damit ich leicher mit verschiedenen Variablen u.ä. arbeiten kann
aber ich bekomme wenn ich darauf zugreife einen lauf-zeit fehler mit der Meldung '---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt P_1.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 004586DB in Modul 'P_1.exe'. Schreiben von Adresse 00000004' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
'

könnt ihr mir wenn ich euch meinen code zeige sagen, wie ich das machen muss, damit es funktioniert ?!
bitte :)

hier ist mein code

Delphi-Quellcode:

type
  TBuchstaben = class
    Buchstaben_Name : Char;
    Klick_stelle : integer;
    Anzahl_im_Text : integer;
    Priorität : integer;
  end;

  TForm1 = class(TForm)
    Eingabe: TGroupBox;
    Text: TMemo;
    Kontrollstruckturen: TGroupBox;
    HandyTastatur: TGroupBox;
    E1: TEdit;
    E2: TEdit;
    E3: TEdit;
    E4: TEdit;
    E5: TEdit;
    E6: TEdit;
    E7: TEdit;
    E8: TEdit;
    Kosten: TGroupBox;
    optimiere: TButton;
    Label1: TLabel;
    M_Kon_Stelle: TMemo;
    E_K_Alt: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    E_K_Neu: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    Gl_Buchstaben_array : Array[1..26] of TBuchstaben;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
const
Temp_Buchstaben : Array[1..26] of Char = 'abcdefghijklmnopqrstuvwxyz';
begin
  Label1.Caption := 'Anzahl der' + #13#10 + 'Buchstaben'+ #13#10 +'im Text';
  For i := 1 to 26 do
  begin
    Gl_Buchstaben_array[i].Buchstaben_Name := Temp_Buchstaben[i];  // hier ist der Fehler aber wieso ?!
  end;
end;

end.

danke schon einmal :)

[jfheins]

Eine Klasse ist nur ein Typ

Um eine Klasse zu benutzen muss man (allermeistens) ein Objekt dieses Typs erstellen. Das macht man, indem man den Konstruktor aufruft.

Konkret hieße das:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
var 
i : integer; 
const 
Temp_Buchstaben : Array[1..26] of Char = 'abcdefghijklmnopqrstuvwxyz'; 
begin 
  Label1.Caption := 'Anzahl der' + #13#10 + 'Buchstaben'+ #13#10 +'im Text'; 
  For i := 1 to 26 do 
  begin 
    Gl_Buchstaben_array[i] := TBuchstabe.Create();
  end; 
  For i := 1 to 26 do 
  begin 
    Gl_Buchstaben_array[i].Buchstaben_Name := Temp_Buchstaben[i];  // hier ist der Fehler aber wieso ?! 
  end; 
end;

Ich habe dir zwar jetzt den Code gegeben, aber versuche bitte trotzdem zu verstehen was da jetzt gemacht wird ;)

[mkinzler]

Du musst auch die Instanzen erzeugen:

Delphi-Quellcode:

  For i := 1 to 26 do
  begin
    Gl_Buchstaben_array[i] := TBuchstaben.Create;
    Gl_Buchstaben_array[i].Buchstaben_Name := Temp_Buchstaben[i];  // hier ist der Fehler aber wieso ?!
  end;

[gangs-taas]

Zitat:

Zitat von jfheins

Eine Klasse ist nur ein Typ

Um eine Klasse zu benutzen muss man (allermeistens) ein Objekt dieses Typs erstellen. Das macht man, indem man den Konstruktor aufruft.

Konkret hieße das:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
var 
i : integer; 
const 
Temp_Buchstaben : Array[1..26] of Char = 'abcdefghijklmnopqrstuvwxyz'; 
begin 
  Label1.Caption := 'Anzahl der' + #13#10 + 'Buchstaben'+ #13#10 +'im Text'; 
  For i := 1 to 26 do 
  begin 
    Gl_Buchstaben_array[i] := TBuchstabe.Create();
  end; 
  For i := 1 to 26 do 
  begin 
    Gl_Buchstaben_array[i].Buchstaben_Name := Temp_Buchstaben[i];  // hier ist der Fehler aber wieso ?! 
  end; 
end;

Ich habe dir zwar jetzt den Code gegeben, aber versuche bitte trotzdem zu verstehen was da jetzt gemacht wird ;)

das versuch ich immer !
beschämt michdas du denkst ich würde das nicht machen !!

ja ist logisch ...
wusste ich nur nicht :)
danke

[jfheins]

Zitat:

Zitat von gangs-taas

das versuch ich immer !
beschämt mich das du denkst ich würde das nicht machen !!

Naja, nach dem hier, dem da, der da und sowas hier hab' ich das lieber nochmal dzugeschrieben :stupid:

Zitat:

ja ist logisch ...
wusste ich nur nicht :)
danke

Kein Problem, dafür sind wir ja da *g*

[gangs-taas]

Zitat:

Zitat von jfheins

Zitat:

Zitat von gangs-taas

das versuch ich immer !
beschämt mich das du denkst ich würde das nicht machen !!

Naja, nach dem hier, dem da, der da und sowas hier hab' ich das lieber nochmal dzugeschrieben :stupid:

Zitat:

ja ist logisch ...
wusste ich nur nicht :)
danke

Kein Problem, dafür sind wir ja da *g*

okayokay
sieht schon nicht gut aus für uns anfänger :)
naja ich versuche immer es zu verehn :)

danke :D

ps. finde ich kalsse das du sowas sagst wie :D

Zitat:

ja ist logisch ...
wusste ich nur nicht :)
danke
Kein Problem, dafür sind wir ja da *g*

hat bislang noch keiner gesagt wenn man sich bedankt hat ... :D :D