[mocrosoft7]

Здравствуйте программисты!
у меня возник вопрос ...
как можно динамически сворить переменную в которой бы сохранялся текст?
заранее спасибо!

[ryderx34]

StrNew, StrAlloc ?

[mocrosoft7]

а можно подробнее.....

[ryderx34]

Вот например запись текста из 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;