Копирование в буфер обмена

[Xanex]

Доброго времени суток. Подскажите пожалуйста, как скопировать содержимое текстового файла в буфер обмена из делфи.

[FaTaL]

Грузи его в TStringList и потом TStringList.CopyToClipBoard

[Terran]

Для текста будет так:

Uses
   CLIPBrd,...
Procedure TForm1.Button1Click(Sender: TObject); //Записать в буфер
Begin
Clipboard.AsText:=Memo1.Text
End;

Procedure TForm1.Button2Click(Sender: TObject); //Прочитать из буфера
Begin
Edit1.Text:=Clipboard.AsText;
End;

[Xanex]

В TStringList нету такого метода. А суть такова, что в файле у меня имеется несколько строк, так вот, когда я пишу

var
    F: TextFile;
    s: array[1..100] of string;
    i, n: integer;
begin
  assignFile(F, 'D:\1\1.txt');
  Reset(F);
  n := 1;

  while not eof(f) do
  begin
    readln(f, s[n]);
    inc(n);
  end;

  for i := 1 to n - 1 do
    Clipboard.AsText := s[i];

end.

у меня копируется последняя строка из массива, а нужно чтобы в буфер обмена скопировались все строки.

[Terran]

Вам надо записывать так:

...
while not eof(f) do
  begin
    readln(f, s[n]);
    inc(n);
  end;
 Clipboard.Clear;
  for i := 1 to n - 1 do
    Clipboard.AsText:=Clipboard.AsText+s[i]+' ';

[Xanex]

Ой блин( Как я до этого сам не додумался. Спасибо Вам огромное, выручили