AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Problem mit Klasse (in Klasse)

Ein Thema von fkerber · begonnen am 26. Mai 2005 · letzter Beitrag vom 27. Mai 2005
 
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#1

Problem mit Klasse (in Klasse)

  Alt 26. Mai 2005, 23:33
Hi!

Ich versuche, das ganze mal so gut es geht zu beschreiben und hoffe, dass ich mich verständlich ausdrücken kann.

Ich habe eine Klasse TField, abgeleitet von TPanel. Im Hauptprogramm gibt es ein Array[0..63] of TField. Das Arbeiten damit hat auch super geklappt. Ich hatte einige neue Eigenschaften eingeführt etc, ging alles sehr gut.
Daneben habe ich eine weitere Klasse TPeg. Ich habe jetzt in der Klasse TField folgendes stehen:

Delphi-Quellcode:
TField = class(TPanel)
 private
  Peg: TPeg;
  VPos: integer;
  HPos: char;
  Image: TImage;
  orgColor: TColor;
 public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  procedure init();
  procedure setPeg(NewPeg: TPeg);
  procedure setPos(h:Char; v: integer);
  function getPeg: TPeg;
  procedure HighlightField(state:integer);
 end;
SetPeg macht eigentlich nix anderes als
peg:=newPeg; Für GetPeg im Prinzip nur umgekehrt.


Die Klasse TPeg sieht so aus:
Delphi-Quellcode:
type
 TPeg = class
  private
   code: integer;
  public
   function GetCode: integer;
   procedure SetCode(newCode: integer);

end;
Auch hier dient Get/SetCode nur zum Setzen und Auslesen des private-Wertes.


Jetzt zum eigentlichen Hauptproblem:
Ich erstelle in dem Array 64 Instanzen von TField:
Delphi-Quellcode:
procedure TForm1.CreatePlayField;
var i,j,k: integer;
begin
k:=0;
for i:=0 to 7 do
 begin
   for j:=0 to 7 do
    begin
  PlayField[i+j+k]:=TField.Create(PnlPlayField);
  PlayField[i+j+k].Parent:=PnlPlayField;
  end;
   inc(k,7);
  end;
end;
Macht euch um i,j und k mal keine Gedanken, das stimmt alles so.
Jetzt der Kern des Problems:

Delphi-Quellcode:
procedure TForm1.InitPlayField(dat: String);
var
  s: TStringlist;
  i,j,k: integer;
  strarr: TStringDynArray;
  neuefigur: TPeg;
begin
  neueFigur:=tpeg.Create;
  s:=TStringList.Create;
  s.LoadFromFile(dat);
  k:=0;
  for i:=0 to 7 do
   begin
     Explode(StrArr,';', S[i]);
     for j:=0 to 7 do
      begin
        NeueFigur.SetCode:=strtoint(StrArr[j])
        PlayField[i+j+k].SetPeg(NeueFigur);
        PlayField[i+j+k].init;
      end;
     inc(k,7);
   end;
  s.free;
  neueFigur.Free;
end;
So, dachte ich mir, müsste es aussehen. Es geht leider gar nicht!
Der Code-Wert von Peg in den einzelnen Instanzen enthält falsche Werte, es kommt zu einer Access Violation beim Beenden des Programms.

Ich habe dann mit Trial&Error herrausgefunden, wie es geht:
Delphi-Quellcode:
procedure TForm1.InitPlayField(dat: String);
var
  s: TStringlist;
  i,j,k: integer;
  strarr: TStringDynArray;
  neuefigur: TPeg;
begin
  s:=TStringList.Create;
  s.LoadFromFile(dat);
  k:=0;
  for i:=0 to 7 do
   begin
     Explode(StrArr,';', S[i]);
     for j:=0 to 7 do
      begin
    ==> neueFigur:=tpeg.Create;
        NeueFigur.SetCode:=strtoint(StrArr[j])
        PlayField[i+j+k].SetPeg(NeueFigur);
        PlayField[i+j+k].init;
      end;
     inc(k,7);
   end;
  s.free;
end;
Wie unschwer zu erkennen ist, habe ich dann nachher sozusagen 64x NeueFigur erschaffen und kein einziges Mal freigegeben.
Paradoxerweise gibt es dann keine Accessvioaltion und auch alle Werte stimmen.
Das kann aber nicht des Rätsels Lösung sein, oder?

Ich hoffe, ihr konntet mein Problem nachvollziehen und mir helfen. Danke.


Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz