Markiertes Listbox Item nach Edit

[sandraeberlein]

Ich probiere es ständig so:

Code:

listbox1.items[0] := edit1.text;

Aber wie geht das mit einem Markiertem Item?

danke und Bussi :love: sandra

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  for i := 0 to Listbox1.Items.Count - 1 do
  begin
    if Listbox1.Selected[i] then
      s := Listbox1.Items[Listbox1.ItemIndex];
  end;
  ShowMessage(s);
end;

Aber ein Blick in die Hilfe hätte es auch getan. :roll:

[Die Muhkuh]

@Luckie

warum so umständlich:

[delphi]var
S: String;
begin
S := ListBox1.Items.Strings[ListBox1.ItemIndex];
Edit1.Text := S;
end;

[mirage228]

Zitat:

Zitat von Spider

@Luckie

warum so umständlich:

Delphi-Quellcode:

var
  S: String;
begin
  S := ListBox1.Items.Strings[ListBox1.ItemIndex];
  Edit1.Text := S;
end;

@Spider

Warum so umständlich (und auch noch ohne Fehlerbehandlung) ? :mrgreen:

Delphi-Quellcode:

if ListBox1.ItemIndex <> -1 then
  Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
/// ----- oder ------
with ListBox1 do
  if ItemIndex <> -1 then
    Edit1.Text := Items[ItemIndex];

mfG
mirage228

[Die Muhkuh]

Zitat:

Zitat von mirage228

Zitat:

Zitat von Spider

@Luckie

warum so umständlich:

Delphi-Quellcode:

var
  S: String;
begin
  S := ListBox1.Items.Strings[ListBox1.ItemIndex];
  Edit1.Text := S;
end;

@Spider

Warum so umständlich (und auch noch ohne Fehlerbehandlung) ? :mrgreen:

Delphi-Quellcode:

if ListBox1.ItemIndex <> -1 then
  ListBox1.Items[ListBox1.ItemIndex] := Edit1.Text;
/// ----- oder ------
with ListBox1 do
  if ItemIndex <> -1 then
    Items[ItemIndex] := Edit1.Text;

[i]Edit: Wieso zur Hölle werden meine Delphi Codes nicht übernommen?

Warum machst du das falsch rum? Sie will das markierte ins Edit machen:

Delphi-Quellcode:

if ListBox1.ItemIndex <> -1 then
  Edit1.Text := ListBox1.Items[ListBox1.Itemindex];

[mirage228]

Ups, hab mir jetzt nur den Code oben durchgelesen. Dann muss es natürlich nur andersrum sein.

mfG
mirage228

[lblbw]

Habe diesen Code genommen, aber wenn ich nun auf den button klicke, passiert gar nichts.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Listbox1.Items.Count - 1 do
  begin
    if Listbox1.Selected[i] then
      Edit2.Text := Listbox1.Items[Listbox1.ItemIndex];
  end;
end;

[fkerber]

Hi!

Sicher, dass der Code aufgerufen wird?

Ciao Frederic

[Sharky]

Was möchtest Du denn genau machen?
Dein Code gilt ja (allerdings mit fehler) für eine ListBox mit MultiSelect.
Wenn Du "nur" das selektierte Item im Edit haben möchtest dann :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit2.Text := Listbox1.Items[Listbox1.ItemIndex];
end;