[mocrosoft7]

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

[ryderx34]

StrNew, StrAlloc ?

[mocrosoft7]

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

[ryderx34]

Вот например запись текста из Memo в динамическую переменную с привязкой её к итему ListView:

Код:

// запись:
procedure TForm1.Button1Click(Sender: TObject);
var
  P: PChar;
  NewItem: TListItem;
begin
  P := StrNew(PChar(Memo1.Text));
  NewItem := ListView1.Items.Add;
  NewItem.Data := P;
end;

// удаление:
procedure TForm1.Button3Click(Sender: TObject);
var
  P: PChar;
begin
  P := ListView1.Selected.Data;
  StrDispose(P);
  ListView1.DeleteSelected;
end;