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