, følgende kode viser, hvordan man bruger skabe en combo rubrik ejendom redaktør.,,, der testes ved hjælp af delphi 5, enhed combotest;,,, grænseflade, anvender, vinduer, beskeder, sysutils, klasser, grafik, kontrol, formularer, dialoger,,, stdctrls, dsgnintf,,,,,,,,, teditlist = klasse (tedit), private, flistvalue: string;,, der er offentliggjort, ejendom, listvalue: string læse flistvalue skrive flistvalue,,,,,,,,,, gennemførelse af proceduren register,,,,,,,,, ttextproperty = klasse (tpropertyeditor), private, flist: tstringlist;, offentlig, konstruktøren skabe (denne adesigner: iformdesigner;,, apropcount: heltal); gearvalg;,, destructor ødelægge; gearvalg;,, funktion getvalue: string; gearvalg;,, procedure setvalue (denne værdi: string); gearvalg;,, procedure getvalues (proc: tgetstrproc); gearvalg;,, funktion getattributes: tpropertyattributes; gearvalg;,,,,,, procedure register, begynder, registercomponents ('samples, [teditlist]),,, registerpropertyeditor (typeinfo (...), teditlist,,,,,,, listvalue, ttextproperty);,,,,,,,,,,, tslist} {, konstruktøren ttextproperty. skabe (denne adesigner: iformdesigner;,, apropcount: heltal), begynder, har skabt (adesigner, apropcount),,, flist: = tstringlist. skabe;,,,, flist. loadfromfile (»c:. customstrings. txt), bortset fra, flist. der tilsættes ('item 1), flist. der tilsættes ('item 2);,,,,,,,,, -d;,,, destructor TTextProperty.Destroy;,, begin,, FList.SaveToFile('c:\\customstrings.txt');,, FList.Free;,, inherited Destroy;,, end;,,, function TTextProperty.GetAttributes: TPropertyAttributes;,, begin,, Result := [paValueList, paSortList];,, end;,,, function TTextProperty.GetValue: string;,, begin,, Result := (GetComponent(0) as TEditList).ListValue;,, end;,,, procedure TTextProperty.GetValues(Proc: TGetStrProc);,, var,, I: Longint;,, begin,, for I := 0 to FList.Count -1 do,, Proc(FList.Strings[I]);,, end;,,, procedure TTextProperty.SetValue(const Value: string);,, begin,, (GetComponent(0) as TEditList).ListValue := Value;,, if FList.IndexOf(Value) = -1 then,, FList.Add(Value);,, end;,,, end.,