Dynamische Programmierung 2 Fragen

[geskill]

Hi,
Ich habe mir die Dynamische Programmierung genauer unter die Lupe genommen, soweit zu gut, leider habe ich 2 Fragen bzw. Probleme.

Erstens möchte ich "SRKIBNewForm : TForm;", "SRKIBNewButton : TButton;", "SRKIBNewWebLabel : TLabel;" in eine PRIVATE deklaration auslagern, da sonst das keiner benutzen soll. Leider kommt dann immer ein Fehler beim erstellen.

Zweitens habe ich ein Problem was das OnClick verhalten auf einen dynamisch erzeugten Button regelt (im TSRKInfoBox.TButtons.Create), ich habe es bereits in einer TYPE deklaration geschafft, jedoch funktioniert es bei mit nicht in einer verschachtelten deklaration.

EDIT:
Ich habe mal eine Testumgebung mit hochgeladen ist womit das ganze für euch vllt. einfacher ist...

Delphi-Quellcode:

unit uSRKInfoBox;

interface

  USES
    Windows, Graphics, StdCtrls, Forms, Controls, ShellApi;

  TYPE TSRKInfoBox = class
       PRIVATE
  TYPE TButtons = record
       PRIVATE

       PROCEDURE SetCaption(ACaption:String='Close');
       FUNCTION GetCaption:String;
       PROCEDURE SetOnClick(Sender: TObject);
       PROCEDURE SetVisible(AVisible:Boolean=TRUE);
       FUNCTION GetVisible:Boolean;
       PUBLIC
       PROCEDURE Create;
       PROPERTY Caption:String READ GetCaption WRITE SetCaption;
       PROCEDURE Show;
       PROPERTY Visible:Boolean READ GetVisible WRITE SetVisible;
       END;


       PROCEDURE SetCaption(ACaption:String);
       PROCEDURE SetColor(Color:TColor);
       PROCEDURE SetHeight(AHeight:Integer);
       PROTECTED
       FFTButtons : TButtons;
       PUBLIC
       PROCEDURE Create;
       PROPERTY Caption:String WRITE SetCaption;
       PROPERTY Color:TColor WRITE SetColor;
       PROCEDURE Free;
       PROPERTY Height:Integer WRITE SetHeight;


       PROCEDURE Show;
       PROPERTY CloseButton:TButtons READ FFTButtons;
       END;



  VAR
    SRKIB:TSRKInfoBox;

    SRKIBNewForm : TForm;
    SRKIBNewButton : TButton;
    SRKIBNewWebLabel : TLabel;

implementation

PROCEDURE TSRKInfoBox.Create;
BEGIN
  SRKIBNewForm := TForm.Create(Application.Owner);
  WITH SRKIBNewForm DO BEGIN
  BorderIcons := [biSystemMenu];
  BorderStyle := bsToolWindow;
  Position := poDesktopCenter;
  END;
END;

PROCEDURE TSRKInfoBox.SetCaption(ACaption:String);
BEGIN
  SRKIBNewForm.Caption := ACaption;
END;

PROCEDURE TSRKInfoBox.SetColor(Color:TColor);
BEGIN
  SRKIBNewForm.Color := Color;
END;

PROCEDURE TSRKInfoBox.Free;
BEGIN
  SRKIBNewForm.Free;
END;

PROCEDURE TSRKInfoBox.SetHeight(AHeight:Integer);
BEGIN
  SRKIBNewForm.Height := AHeight;
END;

PROCEDURE TSRKInfoBox.Show;
BEGIN
  SRKIBNewForm.Show;
END;

///////////////////////////////////////////////////////////////////////////

PROCEDURE TSRKInfoBox.TButtons.Create;
BEGIN
  SRKIBNewButton := TButton.Create(SRKIBNewForm);
  SRKIBNewButton.Parent := SRKIBNewForm;
  //-------------------------------------------\\
  SRKIBNewButton.OnClick := SRKIB.FFTButtons.SetOnClick;
  SRKIBNewButton.OnClick := SRKIB.TButtons.SetOnKlick;
  //-------------------------------------------\\
END;

PROCEDURE TSRKInfoBox.TButtons.SetCaption(ACaption:String='Close');
BEGIN
  SRKIBNewButton.Caption := ACaption;
END;

FUNCTION TSRKInfoBox.TButtons.GetCaption:String;
BEGIN
  result := SRKIBNewButton.Caption;
END;

PROCEDURE TSRKInfoBox.TButtons.SetOnClick(Sender: TObject);
BEGIN
  SRKIBNewButton.Free;
  SRKIBNewForm.Free;
END;

PROCEDURE TSRKInfoBox.TButtons.SetVisible(AVisible:Boolean=TRUE);
BEGIN
  SRKIBNewButton.Visible := AVisible;
END;

FUNCTION TSRKInfoBox.TButtons.GetVisible:Boolean;
BEGIN
  result := SRKIBNewButton.Visible;
END;

PROCEDURE TSRKInfoBox.TButtons.Show;
BEGIN
  SRKIBNewButton.Show;
END;

MFG
geskill

PS: Das Dynamische Feld wird von einem Formular gestartet, wobei folgende Proceduren benutzt werden

Delphi-Quellcode:

  SRKIB.Create;
  SRKIB.Caption := 'AAA';
  SRKIB.CloseButton.Create;
  SRKIB.CloseButton.Caption := 'a';
  SRKIB.CloseButton.Show;
  SRKIB.Show;

[SirThornberry]

uj, was machst du denn da? Entweder hab ich mich beim anschauen wegen der teilweise nicht vorhandenen einrückung vertran oder du hast einen Record der Methoden und private Member hat?

Zitat:

Leider kommt dann immer ein Fehler beim erstellen.

hier wäre es sehr sinnvoll zu wissen was für ein Fehler kommt :wink:

[geskill]

Zum Beispiel wenn ich "VAR SRKIBNewButton : TButton;" in den PRIVATE Teil verlagere

Delphi-Quellcode:

       //[...]  
  TYPE TSRKInfoBox = class
       PRIVATE
  TYPE TButtons = record
       PRIVATE
       
       VAR SRKIBNewButton : TButton;
       
       PROCEDURE SetCaption(ACaption:String='Close');
       FUNCTION GetCaption:String;
       //[...]

Dann kommt ein Fehler "Access violation at address [...]". Ich habe jetzt nicht in ein Wörterbuch geschaut aber das müsste eine Zugriffsverletzung sein, wobei man falsch oder mehrfach auf die Variable zugreift, aber so genau weiß ich es auch nicht...

MFG

[SirThornberry]

an welcher Adresse kommt die Access Violation? Ich vermute fast das du vergessen hast die Instanz zu erzeugen.

[geskill]

Zitat:

an welcher Adresse kommt die Access Violation?

Das sind zwar nur Zahlen aber okay "Access violation at address 00456CB0 in module 'Projekt 1.exe'. Write of Address 0000004"

Zitat:

Ich vermute fast das du vergessen hast die Instanz zu erzeugen

Das kann sehr gut sein weil ich nicht weiß was du damit meinst :?

EDIT:

Ich habe das mit der neuen Instanz hinbekommen :-D, dafür schon mal danke :thumb:

Delphi-Quellcode:

CLASS VAR SRKIBNewButton : TButton;

MFG

[geskill]

Leider habe ich immer noch das weitere Problem

Zitat:

du hast einen Record der Methoden und private Member hat?

Ja, und ich habe Probleme beim richtigen Zugriff darauf, ich habe den Code noch etwas "Eingerückt"

Delphi-Quellcode:

//[...]
  TYPE TSRKInfoBox = class
   PRIVATE
       CLASS VAR SRKIBNewForm : TForm;
       CLASS VAR SRKIBNewButton : TButton;
       CLASS VAR SRKIBNewWebLabel : TLabel;
       TYPE TButtons = record
        PRIVATE
            PROCEDURE SetCaption(ACaption:String='Close');
            FUNCTION GetCaption:String;
            PROCEDURE SetOnKlick(Sender: TObject);
            PROCEDURE SetVisible(AVisible:Boolean=TRUE);
            FUNCTION GetVisible:Boolean;

        PUBLIC
            PROCEDURE Create;
            PROPERTY Caption:String READ GetCaption WRITE SetCaption;
            PROCEDURE Show;
            PROPERTY Visible:Boolean READ GetVisible WRITE SetVisible;
       END;

//[...]

PROCEDURE TSRKInfoBox.TButtons.Create;
BEGIN
  SRKIBNewButton := TButton.Create(SRKIBNewForm);
  SRKIBNewButton.Parent := SRKIBNewForm;
  SRKIBNewButton.OnClick := ???
END;

//[...]

PROCEDURE TSRKInfoBox.TButtons.SetOnKlick(Sender: TObject);
BEGIN
  SRKIBNewButton.Free;
  SRKIBNewForm.Free;
END;

//[...]

Ich habe schon alles mögliche versucht wie:

Delphi-Quellcode:

SRKIBNewButton.OnClick := SRKIB.TButtons.SetOnKlick;
// Feld oder Methodenbezeichner erwartet

Delphi-Quellcode:

SRKIBNewButton.OnClick := SRKIB.FFTButtons.SetOnKlick;
// Access violation at address [...] -> in CLASS Funktioniert nicht :-(

MFG

[geskill]

jehu ^^

Problem gelöst ...
Uns zwar mit einer "CLASS VAR Button : TButtons;" VAR leider nicht das Beste (geht bestimmt auch anders...) aber so gehts ...

Delphi-Quellcode:

       TYPE TButtons = record
        PRIVATE
            
            CLASS VAR Button : TButtons;
            
            PROCEDURE SetCaption(ACaption:String='Close');
            FUNCTION GetCaption:String;
            PROCEDURE SetOnKlick(Sender: TObject);
            PROCEDURE SetVisible(AVisible:Boolean=TRUE);
            FUNCTION GetVisible:Boolean;

        PUBLIC
            PROCEDURE Create;
            PROPERTY Caption:String READ GetCaption WRITE SetCaption;
            PROCEDURE Show;
            PROPERTY Visible:Boolean READ GetVisible WRITE SetVisible;
       END;

Delphi-Quellcode:

SRKIBNewButton.OnClick := Button.SetOnKlick;

[Muetze1]

Ich habe das Gefühl, dass du nicht wirklich weißt, was du wirklich machst. Zum einen ist die von SirThomberry schon angesprochene Ausrichtung und Formatierung schlecht bis gar nicht übersichtlich und zum anderen sind grundlegende Fehler enthalten. Ich würde dir vor allem erstmal ein OOP Tutorial empfehlen, schon allein wenn ich sehe, dass du eine Methode (!) namens Create angelegt hast. Auch würde ich gerne mal von dir hören, was denn die Angabe von "class" zu bedeuten hat - also mit deinen eigenen Worten...

[DasZiesel]

:shock: Alles in Großbuchstaben. Oje, kann es sein das du vorher in Basic programmiert hast?

[SirThornberry]

Zitat:

Zitat von geskill

Das sind zwar nur Zahlen aber okay "Access violation at address 00456CB0 in module 'Projekt 1.exe'. Write of Address 0000004"

Diese Zahlen sind Gold wert :wink:
Zumeist ist die Basisadresse $40000 (oder so ähnlich). Wenn also eine Zugriffsverletzung beim Lesen oder schreiben in viel niedrigeren Regionen um die 0 stattfinden sieht man sofort ob ein Object instanziert wurde oder nicht. Und in deinem Fall wird versucht an Adresse 4 zu schreiben. Somit hast du wohl eine Instanz welche nil ist und greifst auf eine Variable zu welche an Offset 4 ist. :)