Listbox og copy pasta

http://www.swissdelphicenter.com/en/showcode.php?id=640
for at kopiere ihvertfald

eller

procedure TForm1.Copy1Click(Sender: TObject);
var
sl : TStringlist;
  i: integer;
  clp : String;
begin
sl := TStringlist.Create;
  for i:= 0 to  ListBox1.Items.Count-1 do
  if ListBox1.Selected[i] then
  sl.Add(listbox1.Items.Strings[i]);
  clp := sl.Text;
  Clipboard.AsText  :=  clp ;


  sl.Free;


end;

procedure TForm1.Paste1Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;

Stoney

Hvis du ikke forstår hvad Stony viser (lad være med at bruge hans måde at indrykke koden på ;-)), så kopierer han de valgte linier i listboksen over i en TStringList der altså har en Clipboard-tingest.

Må antage at hver linie er adskilt af en #13#10 (cr,lf), men det må du prøve dig frem.

Mange tak jeg ser på dem.. den af Stoney kan den ikke sættes ind i en form1.listbox1.clik eller skal den være selvstændig ?
Og hej hrc ...øøøøø fin kommentar, ja så langt er jeg at TStringlist er en kunstig mem eller sådan noget..(jeg rykker heller ikke min kode ind, men jeg har set at det gør "De rigtige" ...  mærkelig ide ... : )

Forsat go pinse.

VH
koden12

PROBLEMER :

Clipboard.AsText  :=  clp ;
den vil den ikke ha ?

[Error] min.pas(158): Undeclared identifier: 'Clipboard'

VH
koden12

Men den her virker !!!


procedure TForm3.ListBoxToClipboard(ListBox: TListBox; BufferSize: Integer;
  CopyAll: Boolean);

  var
  Buffer: PChar;
  Size: Integer;
  Ptr: PChar;
  I: Integer;
  Line: string[255];
  Count: Integer;

  begin

  if not Assigned(ListBox) then
    Exit;

  GetMem(Buffer, BufferSize);
  Ptr  := Buffer;
  Count := 0;
  for I := 0 to ListBox.Items.Count - 1 do
  begin
    Line := ListBox.Items.strings[I];
    if not CopyAll and ListBox.MultiSelect and (not ListBox.Selected[I]) then
      Continue;
    { Check buffer overflow }
    Count := Count + Length(Line) + 3;
    if Count = BufferSize then
      Break;
    { Append to buffer }
    Move(Line[1], Ptr^, Length(Line));
    Ptr    := Ptr + Length(Line);
    Ptr[0] := #13;
    Ptr[1] := #10;
    Ptr    := Ptr + 2;
  end;
  Ptr[0] := #0;
  ClipBoard.SetTextBuf(Buffer);
  FreeMem(Buffer, BufferSize);

end;

Så ullasan sku ha haft de 30 spir...

Næste gang OK ?

VH
koden12

Du mangler clipbrd i uses i mit eks.

Jeg synes det andet er overkill, men OK bare det virker.
Du må lige sige hvis du vil have dine 30 point tilbage.

hrc>> Du har ret med hensyn til "layoutet" af min kode ligesom de andre du har punket
for det samme, men hvad vil du helst have om morgenen når du skal på arbejde, at din bil er pæn eller den kan starte :-)

Stoney

Stoney: For at føre analogien videre: Min bil starter altid fordi den er pæn og velholdt - fik du den ;-)

Hej i to : )  nej lad det bare være.. jeg håber ullesan ved at han burde ha sendt en svar..
Hvis jeg skrev clipbrd i uses (så dårlig er jeg heller ikke )
Så når jeg lavede pasta skrev den : clipbrd....
Måske fordi det var tal der stod i den ?

VH
koden12

PS : jeg har kun en cykel..

svar ;)

mm... er logget ind men kan ikke finde svar boksen... hvad sker der mon?