Вот например запись текста из Memo в динамическую переменную с привязкой её к итему ListView:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | procedure TForm1 . Button1Click(Sender: TObject);
var
P: PChar ;
NewItem: TListItem;
begin
P := <b>StrNew( PChar (Memo1 . Text))</b>;
NewItem := ListView1 . Items . Add;
NewItem . Data := P;
end ;
procedure TForm1 . Button3Click(Sender: TObject);
var
P: PChar ;
begin
P := ListView1 . Selected . Data;
<b>StrDispose(P)</b>;
ListView1 . DeleteSelected;
end ;
|
Последний раз редактировалось ryderx34, 19.03.2011 в 21:15.
|