Строки в буфер

[AgressiveBehavior]

Нужно выбранные (Checked) строки из CheckListBox'a загнать в Буфер, пробовал использовать вот эту
процедуру :

 procedure CopyStringToClipboard(const Value: String);
const
  RusLocale = (SUBLANG_DEFAULT shl $A) or LANG_RUSSIAN;
var
  hMem: THandle;
  pData: Pointer;
begin
  Clipboard.Open;
  try
    Clipboard.AsText := Value;
    hMem := GlobalAlloc(GMEM_MOVEABLE, SizeOf(DWORD));
    try
      pData := GlobalLock(hMem);
      try
        DWORD(pData^) := RusLocale;
      finally
        GlobalUnlock(hMem);
      end;
        Clipboard.SetAsHandle(CF_LOCALE, hMem);
    finally
      GlobalFree(hMem);
    end;
  finally
    Clipboard.Close;
  end;
end;

 For I:=0 to CheckListBox1.Items.Count-1 do
     CopyStringToClipboard(CheckListBox1.Items.Strings[i]);

Если пробовать поместить в буфер одну строку то всё гуд, а вот при попытке запихнуть туда несколько строк, ошибок невыдает, но буфер становится нечитаемым - "Program Specific Clip"

[Utkin]

Ну, можно применить индейскую хитрость. Сделай невидимый Мемо и гони строки туда, а с него уже в буфер загнать проще.

[pesi]

var
str:Tstringlist;
i:integer;
begin
str:=Tstringlist.Create;
for  i:=0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
str.Add(CheckListBox1.Items.Strings[i]);
end;
ClipBoard.AsText:=str.Text;
str.Free;
end;

[Utkin]

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

var
str:Tstringlist;
i:integer;
begin
str:=Tstringlist.Create;
for  i:=0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
str.Add(CheckListBox1.Items.Strings[i]);
end;
ClipBoard.AsText:=str.Text;
str.Free;
end;

По сути тоже самое, внутри Мемо тот же самый StringList

[pesi]

Ну да, можно и так

var
i:integer;
begin
memo1.Clear;
for  i:=0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
memo1.Lines.Add(CheckListBox1.Items.Strings[i]);
end;
memo1.SelectAll;
memo1.CopyToClipboard;
end;