Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Zugriff auf Variablen / Klassenstruktur

  Alt 7. Apr 2016, 11:36
Suche den Eintrag ggf. besser mit IndexOf. Du kannst auch eine Property vom Typ string indizieren die das macht.
Delphi-Quellcode:
    property ItemsByName[Name: string]: TValue read GetItemsByName;

..

function TValues.GetItemsByName(Name: string): TValue;
var
  Index: integer;
begin
  Index := IndexOfName(Name);
  if Index > -1 then
    Result := FItems[Index]
  else
    Result.Clear; // falls TValue eine Klasse ist: Result := nil;
end;

Geändert von Bjoerk ( 7. Apr 2016 um 12:03 Uhr) Grund: // Edit
  Mit Zitat antworten Zitat