Discussion :

[frantzgac]

Voilà un petit bout de code très simple qui ne fonctionne pas.
Le but est de mettre le contenu d'un TListBox dans le presse papiers.
J'utilise allocmem car la doc dit que les octets alloués sont mis à zéro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button3Click(Sender: TObject);
var buffer : pchar;
t,tc:integer;
 
begin
t:=length(Listbox1.items.text);
buffer:=AllocMem(t+1);
tc:=Listbox1.GetTextBuf(buffer,t);
ClipBoard.Clear;
ClipBoard.SetTextBuf(Buffer);
freemem(buffer);
Button1.tag:=tc;
end;

L'instruction suivante renvoie 0 alors que le TListBox1 n'est pas vide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tc:=Listbox1.GetTextBuf(buffer,t);

button1.tag=

est là pour empêcher l'optimiseur de libérer tc

[frantzgac]

Bon, voilà j'ai trouvé.
Je ne sais pas pourquoi GetTextBuf ne fonctionne pas mais bon...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.Button3Click(Sender: TObject);
var buffer : pchar;
begin
buffer:=Listbox1.items.GetText;
ClipBoard.Clear;
ClipBoard.SetTextBuf(Buffer);
StrDispose(buffer);
end;

[ShaiLeTroll]

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Button3Click(Sender: TObject);
begin
  ClipBoard.Clear;
  ClipBoard.AsText := Listbox1.items.Text;
end;

sinon, en Delphi, dès que tu utilise PChar, c'est que le code n'est plus si simple que ça, le type string est bien plus efficace et souvent donne une solution bien plus simple ...