Буфер

← →
Юля (2003-07-28 07:10) [0]

Уважаемые мастера!!! Подскажите что делать. Проблемма в общем не большая: необходимо скопировать в буфер строку. Делаю это так
procedure TForm1.Button1Click(Sender: TObject); var Buf:TClipboard; begin Buf:=TClipboard.Create; Buf.AsText:="Строка"; end;

После, в блокноте нажимаю CTRl+V но вместо слова получаю какую-то чушь:

← →
gek © (2003-07-28 07:16) [1]

Ну можно попробовать SetTextBuf(Buffer: PChar);

← →
Юля (2003-07-28 07:23) [2]

Не выходит

← →
MBo © (2003-07-28 07:27) [3]

var
Buf:TClipboard;
begin
Buf:=TClipboard.Create
предыдущее ни к чему.

проблема в unicode
решение:
http://delphibase.endimus.com/?action=viewfunc&topic=sysiface&id=10253

А зачем TClipBoard создаёшь?

Тебе намекают, что создавать ничего не надо, надо просто написать Clipboard.AsText := "Строка";

Буфер Найти похожие ветки