Скопировать обработанный мемо в буффер

[Kronos913]

Итак, есть Memo1 (в данную процедуру входит через SL), данные из которого нужно скопировать в буффер обмена, предварительно обработав их функцией ClearName

Вот кусок кода, который оказался рабочим. Мне пришлось нагородить специально для этой задачи еще одно поле Мемо, невидимое.

Procedure TForm1.MemoToBuff(SL: TStrings);
 var
  i:longint;
begin
      Memo3.Lines.Clear;
      For i:=0 to SL.Count-1 do begin
       Memo3.Lines.Add(ClearName(SL[i]));
      end;
      Clipboard.AsText := Memo3.Text;
end;

Задачу решил, но как-то сморится не очень, такое решение, может быть есть что-то более простое?

Я пытался создать еще одну переменную TStrings с таким кодом

Procedure TForm1.MemoToBuff(SL: TStrings);
 var
  i:longint;
  s:TStrings;
begin
      s.Clear;
      For i:=0 to SL.Count-1 do begin
       s.Add(ClearName(SL[i]));
      end;
      Clipboard.AsText := s.Text;
end;

Но тут при выполнении программы почему-то выдается ошибка...

[evg_m]

перед использованием объекты надо создавать (Create)

s:=TstringList.Create;
s.AddStrings(sl); //можно добавить СРАЗУ все строки
clipboard.Astext:=s.Text;
s.Free;// а потом НЕ ЗАБЫТЬ уничтожить

а можно и просто

clipboard.AsText:=SL.Text;

[Kronos913]

А чем отличается Free от Destroy ?

[BDA]

Free сначала проверит, что объект не равен nil (что еще не освобожден), а затем вызовет Destroy.

[northener]

Добавлю ещё копейку. Destroy это особый метод класса, т.н. destructor который уничтожает некий объект этого класса возвращая память им занимаемую. Но вызывать его напрямую это моветон. Грамотно вызывать его используя метод Free.

[Heneken87]

Сообщение от Kronos913

предварительно обработав их функцией ClearName


Задачу решил, но как-то сморится не очень, такое решение, может быть есть что-то более простое?

А вот для этих целей

ClearName(SL[i]))

-

StringReplace(SL.Text,'СТАРЫЙ ТЕКСТ','НОВЫЙ ТЕКСТ',[rfReplaceAll])

не подойдет? Или в ClearName какие то особенности?

[Kronos913]

По сути, в функцию ClearName заводится полное имя файла/папки, и оно оставляет от него только короткое имя (без маршрута)

В поле мемо находятся полный имена, а в буффер надо скопировать только короткие имена, но весь список