Listtbox- kopieren ?

[Vader]

hallo,

wie geht das wenn ich von einer listbox zeilen markieren will und die markierten
zeilen dann kopieren in die zwischenablage

den code zum makieren und löschen weiß ich, aber nicht zum kopieren ?

Delphi-Quellcode:

procedure TForm1.MarkiertesLoeschen1Click(Sender: TObject);
var i:integer;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    if ListBox1.Selected[i] then
      ListBox1.Items.Delete(i);

end;

mfg vader

[marabu]

Hi vader,

gefällt dir das?

Delphi-Quellcode:

procedure TDemoForm.CopyButtonClick(Sender: TObject);
var
  i: integer;
  sl: TStringList;
begin
  if ListBox.SelCount = 0 then Exit;
  sl := TStringList.Create;
  for i := 0 to ListBox.Items.Count - 1 do
    if ListBox.Selected[i] then
      sl.Add(ListBox.Items[i]);
  ClipBoard.AsText := sl.Text;
  sl.Free;
end;

Grüße vom marabu

[Vader]

hallo,

kommt die fehlermeldung :

[Fehler] Kuka.pas(379): Undefinierter Bezeichner: 'ClipBoard' mfg vader

[marabu]

Das hilft:

Delphi-Quellcode:

uses
  ClipBrd;

marabu

[Vader]

hallo,

das klappt jetzt, aber wenn ich den befehl ausführe fürs kopieren kommt die fehlermeldung:

Listenindex überschreitet das Maximun (-1) mfg vader

[marabu]

Zeig mal den Code, der den Fehler verursacht - bei meinem Code kann der Fehler nicht auftreten.

marabu

[Vader]

hallo marabu,

danke,es funzt schon dein code,hab selbst was falsch reingeschrieben

mfg vader

[Lamiadon]

hallo,
ich habe ein ähnliches problem...
ich versuche grade einen PW-Generator zu erstellen. Mit Klick auf einen der 3 Buttons soll die PW-Liste, die in einer Linkbox angezeigt wird, direkt in die Zwischenablage kopiert werden...ich habe es bereits mit mehreren Dingen probiert, aber bei der Methode aus diesem Thread hat es auch nicht geklappt, keine Fehlermeldung oder so, ich klicke einfach auf "generieren und Clipboard" mit der Funktion, ein Wort mit 10 Zeichen aus Groß- und Kleinbuchstaben zu generieren und dieses dann ins Clipboard zu übernehmen. Dann wird das Wort generiert und auch in der Listbox angezeigt, aber nicht ins Clipboard übernommen. Ich habe es ausprobiert indem ich versuchte, es im Windows-Editor wieder einzufügen, aber es hat nicht geklappt...bin absoluter Delphi-Noob, hoffe aber trotzdem auf Hilfe


edit: aktueller quellcode

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
   AnzZei : Integer;
   AnzPW : Integer;
   s1 : Tstringlist;
   i : Integer;
   begin
   listbox1.items.Clear;
   listbox1.Items.add (GeneratePassword(10, [pmLower, pmUpper]));
   s1 := TStringlist.create;
   listbox1.selectall;
   if ListBox1.SelCount = 0 then Exit;
   for i := 0 to ListBox1.Items.Count - 1 do
    if ListBox1.Selected[i] then
   s1.add(listbox1.Items[i]);
   ClipBoard.AsText := s1.Text;
   s1.Free;
   exit;
   end;

[uwewo]

Habe zum Test nur mal was ausprobiert. Also bestimmt nicht optimal, aber funtionsfähig.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   AnzZei : Integer;
   AnzPW : Integer;
   s1 : Tstringlist;
   i : Integer;
   begin
   listbox1.items.Clear;
   listbox1.Items.add ('111');
   listbox1.Items.add ('222');
   listbox1.Items.add ('333');
   s1 := TStringlist.create;
   listbox1.Items.Text;//.selectall;
   if ListBox1.SelCount = 0 then Exit;
   for i := 0 to ListBox1.Items.Count - 1 do
    if ListBox1.Selected[i] then
   s1.add(listbox1.Items[i]);
   ClipBoard.AsText := listbox1.Items.Text;
   s1.Free;
   exit;

end;

[Lamiadon]

danke sehr, funktioniert!