Delphi World - Добавление записей в TStrings, TTreeView или TListView
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Добавление записей в TStrings, TTreeView или TListView

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Bei der Klasse TStrings und den Komponenten TTreeview/TListview gibt es die 
  Moglichkeit, neben dem einfachen einfugen eines Strings auch Objekte mitanzufugen. 
  Da eine Klasse TObject erwartet wird, muss man einen kleinen Umweg programmieren. 
}

 { 
  The Classes TStrings and the components TTreeview/TListview allow you to add an 
  additional Object to a string. 
  Since a TObject is expected, you need to make a little detour to achive this. 
}


 type
   TMyRecord = record
     id: Integer;
     Name: string;
     {...}
   end;
   PMyRecord = ^TMyRecord;

   {...}


   { In this example I use a Listview component }

 procedure Form1.Form1Create(Sender: TObject)
   var
   i: Integer;
   pRec: PMyRecord;
 begin
   for i := 0 to 10 do
   begin
     new(pRec);
     pRec.id := i;
     pRec.Name := 'Entry' + IntToStr(i);
     {...}
     ListView1.AddItem('Entry' + IntToStr(i), Pointer(pRec));
   end;
 end;

 { To retrieve the stored records just use this: }

 procedure Form1.ListView1Click(Sender: TObject);
 var
   i: Integer;
   xRec: TMyRec;
 begin
   for i := 0 to Listview1.Count - 1 do
     if ListView1.Selected[i] then
     begin
       xRec := PMyRecord(ListView1.Items.Objects[i])^;
       ShowMessage(Format('Record #%d Name: %s', [xRec.id, xRec.Name]));
     end;
 end;

 { finally do not forget to free assigned memory }

 procedure Form1.FormClose(Sender: TObject);
 var
   i: Integer;
 begin
   for i := 0 to ListView1.Count - 1 do
     if ListView1.Items.Objects[i] <> nil then
       Dispose(ListView1.Items.Objects[i]);
 end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования