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

[Bummi]

das einzig ungewöhliche scheint mir das zu sein:

Delphi-Quellcode:

    private
      var

[Jens Hartmann]

das ist aber nicht das Problem, hab ich gerade entfernt. Im Anhang mal ein Screenshot der Fehlermeldung und Variablen.

[Uwe Raabe]

Zitat von Jens Hartmann:

BereichText[Nr] := Text;//hier kommt die Zugriffsverletzung, in der variablen stehen vor der Zuweisung ganz viele wilde chinesiche Zeichen etc...

Das sieht so aus, als ob du ein nicht initialisiertes Objekt benutzt. Bei einem sauber initialisiertem Objekt wären die Strings alle leer.

P.S.: ...oder der Speicherbereich wird irgendwie überschrieben.

[Jens Hartmann]

Ja, aber wie und wo.

Ich benutze das gesamte Objekt bis jetzt nur im gezeigten Code. Nirgenwo anders, greife ich drauf zu, schreiben das Objekt etc.

[Uwe Raabe]

Zitat von Jens Hartmann:

Ja, aber wie und wo.

Ich benutze das gesamte Objekt bis jetzt nur im gezeigten Code. Nirgenwo anders, greife ich drauf zu, schreiben das Objekt etc.

Daß du die Objekt-Instanz nicht direkt überschreibst, ist mir schon klar. Deswegen sind solche Sachen auch so schwer zu finden. Auf jeden Fall sollte die Bereichsprüfung aktiv sein - das hat schon oft einen Tip gegeben.

[Jens Hartmann]

Zitat von Uwe Raabe:

Auf jeden Fall sollte die Bereichsprüfung aktiv sein - das hat schon oft einen Tip gegeben.

Danke für den Tip. Ich hab den Fehler gefunden, allerdings ganz woanders. Es war wirklich eine Bereichsverletzung der Grund für den Fehler. Alles zu zeigen, wäre zuviel. Das Problem lag in der definition eines array´s.

Delphi-Quellcode:

MeinArray : array[1..12] of integer;

...
for i = 1 to Test.Count do
 ...

//jetzt geändert in

MeinArray : array of integer;
...
  SetLength(MeinArray,Anzahl);
  for i := Low(MeinArray) to High(MeinArray) do
    MeinArray[i] := i;

  for i := Low(MeinArray) to High(MeinArray) do
    ShowMessage(IntToStr(MeinArray[i]));

Durch die Abfrage mit Low und High, kann die Bereichsverletzung jetzt nicht mehr vorkommen.

Danke nochmal...

Gruß Jens