Value i listbox

er det det du mener??
f.eks alt hvad du skriver i din edit1, bliver overført til din listbox

Listbox1.Items.Add(edit1.text);

ja, men det skal være sådan at når jeg så vælger det første i listboksen så skal den f.eks. skrive hej hej i editboksen...

ok... indsæt den kode i din listbox onclick events

Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];

nej...
Det er ligesom denne her funktion som bruges til hjemmesider. Altså hvor man definere en value og en tekst som bliver vist...

<option value="hej he">Dav dav</option>

Det kan du ikke sådan bare lige. Men du har sammen med dine strings har du en object liste som kan benyttes som en række pointere.

Eks.

...

const
  Value1 = 'Value 1';
  Value2 = 'Value 2';

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.AddObject('Dav 1',TObject(PChar(Value1)));
  ListBox1.Items.AddObject('Dav 2',TObject(PChar(Value2)));
end;


procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit1.Text := PChar(ListBox1.Items.Objects[ListBox1.ItemIndex]);
end;

btw.. Value1+2 kunne ligeså godt være en string variable e.l.

jeg kan ikke få det til at virke i denne sammehæng:

ShellExecute(Handle,'open',PChar(lv.Items.Objects[lv.ItemIndex]),pchar(''),pchar(''),SW_SHOWNORMAL);

Når jeg aktivere koden sker der ikke noget. Og jeg har markeret et item i listboksen..

prøv lige at lave følgende inden din ShellExecute

ShowMEssage(PChar(lv.Items.Objects[lv.ItemIndex]);

for at se om du har fået det rigtige ind...

den viser ikke det rigtige... Her er koden jeg bruger til at tilføje items til listboxen:

procedure TForm1.updateClick(Sender: TObject);
var
  StartItemNode : IXMLNode;
  ANode : IXMLNode;
  STitle, sDesc, sLink : WideString;
  I : Integer;

begin
lv.Items.Clear;
XMLDoc.FileName := 'http://www.xxxxx.xxx/xxx.xml';
XMLDoc.Active:=True;

StartItemNode := XMLDoc.DocumentElement.ChildNodes.
                  First.ChildNodes.FindNode('item');
                 
ANode := StartItemNode;
repeat
  STitle := ANode.ChildNodes['title'].Text;
  sLink := ANode.ChildNodes['link'].Text;
  sDesc := ANode.ChildNodes['description'].Text;

  //add to list view

  with LV do
  begin
    lv.Items.AddObject(STitle,TObject(PChar(sLink)));
  end;
  ANode := ANode.NextSibling;
until ANode = nil;

end;

Du laver en pointer til en string i et object (ANode) - og det forsvinder kort tid efter. Derfor går det galt.

Du kan f.eks. lave en StringList hvor du tilføjer dine links i og adder dem i stedet.

...
Hvis du laver en stringlist, kan du lige så godt blot gemme indexet i objects

hvordan gør jeg det?

hvordan laver jeg en stringliste???

lukker....