MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
// Create a TLayer Class // type TLayer = class(TObject) private Name : string ; Line_Color : TColor ; Visible : boolean ; public property aName : String read Name write Name ; property aLine_Color : TColor read Line_Color write line_Color ; property aVisible : Boolean read Visible write Visible ; end ; ..... var aLayer : TLayer ; Layers : TObjectList ; ...... procedure TForm1.Create_Default_Layers_List ; var s80 : string ; begin // Setup a List of TLayer Objects // Layers := TObjectList.Create ; // Zero based array // Destroy at Form1.Close Layers.Clear ; aLayer := TLayer.Create ; with aLayer do begin Name := 'All Layers' ; Line_Color := clBlack ; Visible := True ; end ; Layers.Add(aLayer) ; ...... // I have trouble trying to access the Items properties here, for example s80 := Layers.Items.Name ;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Can Viruses spread while transferring files via FTP protocol to unshared NAS drives ?||6||122|
|LAN or WAN ?||11||119|
|DBGrid or StringGrid ?||6||135|
|delphi popmenu non latine charcters||3||47|
Join the community of 500,000 technology professionals and ask your questions.