VCL-Styles

[Jens Hartmann]

Hallo zusammen,

erstmal hoffe ich, das Ihr schönen Feiertage hattet. Ich habe mich soeben nochmal mit meinem Problem beschäftig. Also der Fehler mit der ausgelagerten Klasse tritt immer noch auf. Folgend habe ich mal die Klasse und deren aufrufe etc. zusammen gestellt. Vieleicht kann ja jemand da schon einen Fehler sehen.

Delphi-Quellcode:

//Ein Teil meiner Klasse
unit Bereiche;

interface

type
  TBereiche = class(TObject)
    private
      var
        BereichText : array[1..6] of string;
    public
      procedure SetBereich(Nr : integer; Text : string);
      function GetBereich(Nr : integer) : string;
   //Ich weiß, normal wird die Übergabe über property gemacht. Das ist aktuell nur zum testen....
  end;

implementation

{ TBereiche }
procedure TBereiche.SetBereich(Nr: integer; Text: string);
begin
  BereichText[Nr] := Text;
end;

function TBereiche.GetBereich(Nr: integer): string;
begin
  Result := BereichText[Nr];
end;

//im interface Teil der MainForm
  uses
    ...,Bereiche;
  ...
  private
  ...    
  var
    FBereiche : TBereiche;

//im OnCreate der MainForm
  FBereiche := TBereiche.Create;

//im OnDestroy der MainForm
  FBereiche.Free;

//als Versuch und hier knallts schon
  FBereiche.SetBereich(1,'Test');
...
procedure TBereiche.SetBereich(Nr: integer; Text: string);
begin
  BereichText[Nr] := Text;//hier kommt die Zugriffsverletzung, in der variablen stehen vor der Zuweisung ganz viele wilde chinesiche Zeichen etc...
end;
//Kann es sein, das der Absturz mit den variablen zusammen hängt?

Eventuell kann ja jemand den Fehler einschränken...

Gruß und Danke schon mal

Jens