Текущий архив: 2003.08.11;
Скачать: CL | DM;

Вниз

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

← →
Юля   (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

---

← →
Song ©   (2003-07-28 09:34) [4]

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

---

← →
Anatoly Podgoretsky ©   (2003-07-28 09:47) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.08.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c