Erweitern einer vorahandenen Property in einer VCL Komponente

[fisipjm]

Zitat von Uwe Raabe:

Zitat von himitsu:

"Umständlicher" :
Du führst eine Liste/Array mit den GUIDs und schreibst bei den Klassen in .Tag den jeweiligen Index.

Oder andersrum, über die Instanzen verlinkt. -> TDictionary<TMarker, TGUID>

Ist in diesem Fall wohl der einzig gangbare Weg.

Ich habs befürchtet, den Wert ID hat der Marker ja, den kann man dafür verwenden um ihn später auch wieder anzusprechen. Ich wollte das aber eigentlich lieber umgehen, da es der ohnehin schon recht umständlichen Programmierung noch einen weiteren Step hinzufügt

Danke für die Antwort

[himitsu]

Zitat von fisipjm:

Ich habs befürchtet, den Wert ID hat der Marker ja, den kann man dafür verwenden um ihn später auch wieder anzusprechen. Ich wollte das aber eigentlich lieber umgehen, da es der ohnehin schon recht umständlichen Programmierung noch einen weiteren Step hinzufügt

Anzeigen und Speichern hängt aber nicht immer untrennbar zusammen.

Du kannst problemlos die GUIDs in einer externen Liste verwalten, aber die jeweilige GUID dennoch in deinen Marker-Items als Property bereitstellen.

Stichwort: Class-Helper
Also das Property nachträglich/virtuell an dem Marker hängend, aber im Getter/Setter dieses Property die GUID extern verwalten. (z.B. in dem Dictionary)

[fisipjm]

Zitat von himitsu:

Zitat von fisipjm:

Ich habs befürchtet, den Wert ID hat der Marker ja, den kann man dafür verwenden um ihn später auch wieder anzusprechen. Ich wollte das aber eigentlich lieber umgehen, da es der ohnehin schon recht umständlichen Programmierung noch einen weiteren Step hinzufügt

Anzeigen und Speichern hängt aber nicht immer untrennbar zusammen.

Du kannst problemlos die GUIDs in einer externen Liste verwalten, aber die jeweilige GUID dennoch in deinen Marker-Items als Property bereitstellen.

Stichwort: Class-Helper
Also das Property nachträglich/virtuell an dem Marker hängend, aber im Getter/Setter dieses Property die GUID extern verwalten. (z.B. in dem Dictionary)

Himitsu du bist offiziel der Held des Tages

Hab es jetzt folgendermaßen gelöst:

Delphi-Quellcode:

USES
..., Generics.Colletions,....

type
TMarkerHelper = class helper for TMarker
  class var
    AddressGGUIDDictionary : TDictionary<TMarker,String>;
  public
    procedure SetAddressGGUID(lAddressgguid : string);
    function GetAddressGGUID : string;
  published
    property AddressGGUID:string read GetAddressGGUID write SetAddressGGUID;
end;

.....

procedure tmarkerhelper.SetAddressGGUID(lAddressgguid: string);
begin
  if not assigned(AddressGGUIDDictionary) then
    AddressGGUIDDictionary:=TDictionary<TMarker, String>.Create;
  AddressGGUIDDictionary.Add(self,lAddressgguid);
end;

function tmarkerhelper.getAddressGGUID : string;
begin
  AddressGGUIDDictionary.TryGetValue(self,result);
end;
 
...

Habs getestet und macht was es soll. Gibts da noch was zu beachten oder passt der Code so?
MFG
PJM

[DeddyH]

Ich würde das Anlegen/Freigeben der Dictionary-Instanz in einen Klassenkonstruktor/Klassendestruktor verlegen. Wenn Du im Moment lesend darauf zugreifst, ohne vorher geschrieben zu haben, macht es Bumms.

[himitsu]

Zitat von fisipjm:

Habs getestet und macht was es soll. Gibts da noch was zu beachten oder passt der Code so?

Delphi-Quellcode:

function tmarkerhelper.getAddressGGUID : string;
begin
  AddressGGUIDDictionary.TryGetValue(self,result);
end;

Dein Rückgabewert ist nicht initialisiert. (eigentlich doch, da String ein Managed-Type ist, aber nicht in Bezug auf diese Function)
Sowas macht Spaß, wenn getAddressGGUID z.B. in einer For-Schleife aufgerufen wird.

Delphi-Quellcode:

if not AddressGGUIDDictionary.TryGetValue(self,result) then
  Result := '';

Du hast ein Speicherleck bei AddressGGUIDDictionary. Die Liste wird nicht freigegeben.
Ich weiß nicht ob Class-Constructor und Class-Destructor bei Class-Helpern möglich sind, aber es gibt ja noch Initialization und Finalization der Unit.

Wenn TMarker von TComponent abgeleitet ist, dann könnte man noch TComponent.FreeNotification verwenden, um automatisch die GUID zu löschen, wenn der TMarker freigegeben wird.
https://stackoverflow.com/questions/...has-been-freed

[Uwe Raabe]

Zitat von himitsu:

Wenn TMarker von TComponent abgeleitet ist, dann könnte man noch TComponent.FreeNotification verwenden, um automatisch die GUID zu löschen, wenn der TMarker freigegeben wird.

TMarker ist ein TCollectionItem und daher geht das so nicht. Da müsste man sich schon in die Collection hängen.

[zeina]

Hallo,

ich setze die komponenten TWebOsmaps mit Delphi 2010 ein.
Ich bitte um eure Hilfe!!

1. Ist es möglich, Geolocation nur vom Namen des Ortes zu bekommen?
2. Ist es möglich, sobald der Name des Ortes geschrieben ist, die Rippen der Site zu identifizieren [Erstellen Sie ein Polygon oder Rechteck].

Vielen Dank

[Delbor]

Hi zeina

Mach bitte für eine neue Frage einenn neuen Thread auf. Dieser hier

• Stammt zum einen a7us dem letzten Jahr
• Ist schon längst beantwortet und
• deine neue Frage hat offensichtlich mit diesem Thema nichts zu tun
• Desshalb sind deine Chancen, hier Antwort zu bekommen, recht klein

Gruss
Delbor