Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Eigene Komponente -> TStringList -> Zugriffsverletzung (https://www.delphipraxis.net/28889-eigene-komponente-tstringlist-zugriffsverletzung.html)

Stephan 31. Aug 2004 20:21


Eigene Komponente -> TStringList -> Zugriffsverletzung
 
Hi,

Ich schreibe gerade an einer eigenen Komponente. Ich möchte, dass der Anwender im OI eine StringList ausfüllen kann. Hierfür habe ich folgendes:

private
FChkFiles: TStringList;

published
property ChkFiles: TStringList read FChkFiles write FChkFiles;


über einen constructor

constructor TwPROT.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ChkFiles := TStringList.Create;
end;

habe ich die StringList auch erstellt. In Delphi kann ich über einen Doppelklick im OI auch einen Text hinterlegen. Dies geht nur einmal. Wenn ich ein zweites Mal den Dialog mit dem Memo aufrufen möchte erhalte ich folgendes:

Zugriffsverletzung bei Adresse 4000988 in Modul 'rtl60bpl'. Lesen von Adresse FFFFFFDC

Kann mir jemand helfen?

viele Grüße

Stephan Munz

Jens Schumann 31. Aug 2004 20:25

Re: Eigene Komponente -> TStringList -> Zugriffsverlet
 
Hallo,
so klappt es bestimmt:

Delphi-Quellcode:
TFoo = class(TComponent)
private
  FMyList : TStrings;
...
public
  constructor Create(AOwner : TComponent); override;
...
published
  property MyList : TStrings read FMyList write SetMyList;
...


procedure TFoo. Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  FMyList.:=TStringList.Create;
end;

procedure TFoo.SetMyList(Value : TStrings);
begin
  FMyList.Assign(Value);
end;

Stephan 31. Aug 2004 20:35

Re: Eigene Komponente -> TStringList -> Zugriffsverlet
 
Hi,

Danke, funktioniert!

sakura 31. Aug 2004 20:37

Re: Eigene Komponente -> TStringList -> Zugriffsverlet
 
Hi Stephan,

korrigiere oben doch noch mal und setze [delphi]-Tags ein.

Danke,
...:cat:...


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:43 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz