Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ComCtrls;
- type
- TForm1 = class
- Label1: TLabel;
- Button1: TButton;
- ListView1: TListView;
- Edit1: TEdit;
- procedure Button1Click(Sender: TObject);
- private
- public
- end;
- type
- TMyObject = class
- private
- FName: string;
- FDescription: string;
- public
- constructor Create(const AName, ADescription: string);
- property Name: string read FName;
- property Description: string read FDescription;
- end;
- var
- Form1: TForm1;
- implementation
- constructor TMyObject.Create(const AName, ADescription: string);
- begin
- FName := AName;
- FDescription := ADescription;
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- var
- NewObject: TMyObject;
- ListItem: TListItem;
- begin
- // Ñîçäàéòå íîâûé îáúåêò ñ èìåíåì è îïèñàíèåì
- NewObject := TMyObject.Create('Íîâûé îáúåêò', 'Îïèñàíèå íîâîãî îáúåêòà');
- // Äîáàâüòå íîâûé ýëåìåíò â ListView
- ListItem := ListView1.Items.Add;
- ListItem.Caption := NewObject.Name;
- ListItem.SubItems.Add(NewObject.Description);
- // Äîïîëíèòåëüíî ìîæåòå ñâÿçàòü îáúåêò ñ ýëåìåíòîì ListView
- ListItem.Data := NewObject;
- end;
- {$R *.dfm}
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
