.,, de volgende code geeft aan hoe het creëren van een combinatie van in het kader van de eigenschap....,,, het gebruik van Delphi eenheid 5, testen, combotest;,,,,,, - interface, ramen, nieuws, SysUtils, klasse, grafische, controles, ramen, dialoog,,, stdctrls, dsgnintf;,,,,, teditlist = (Tedit), particuliere, flistvalue: touw;,, uitgeverijen, listvalue: onroerend goed lezen en schrijven. Flistvalue flistvalue;,,,,, het einde van de procedure; de registratie;,,,,,,, de uitvoering, de ttextproperty = (tpropertyeditor), particuliere de bloemist: tstringlist;,,,, de fabrikant het creëren van (totaal:,, apropcount ontwerper iformdesigner;: gehele); voor verschrikkelijke schade dekken;,,,,, getval functie;Ue: touw; voor de vaststelling van de waarde, en programma 's; (constante waarde:...); - dekking;,, programma getValues (PROC:tgetstrproc); voor de dekking van de functie van getattributes:tpropertyattributes;,,,,,,,,,,, aan het eind van het programma; de registratie;,, registercomponents ('samples [], registerpropertyeditor, teditlist); (typeinfo ongeldig was wegens de (...), teditlist listvalue ",",,,,,,,,, ttextproperty), aan het einde van tslist; {},,, fabrikant ttextproperty. Het creëren van (totaal: iformdesigner; ontwerpers, apropcount:.,,,,,); het scheppen van een erfenis van de ontwerper, apropcount); voor: = tstringlist, Lester. Het creëren van;,,,, met Lester. LoadFromFile (C: customstrings. "), met uitzondering van de bloemist;,,, (punt 1"). Voeg;,, de bloemist. Voeg (punt 2 ");,,,,, op het einde.D;,,,,, ik TTextProperty.Destroy destructor;,, FList.SaveToFile ('c:\\customstrings.txt'); FList.Free;,,,,,, aan het einde van Inherited vernietigen; TTextProperty.GetAttributes: TPropertyAttributes functie;,,,,,,, [paValueList beginnen, gevolg: = paSortList];,,,,,,,,,, ik TTextProperty.GetValue: touw gebruikt. Gevolg: = (,, GetComponent (0) als TEditList).ListValue;,,,,, aan het einde van de procedure; TTextProperty.GetValues (Proc: TGetStrProc), var;,,, ik, ik Longint;,,, voor i = 0 te doen FList.Count - 1:,,. (FList.Strings[I]);,,,,,, de procedure TTextProperty.SetValue (totaal, touw, ik waarde);,,, (GetComponent (0) als TEditList).ListValue: = waarde;,, als FList.IndexOf (Value) = - 1 dan, FList.Add (waarde);,,,,,,,.,