Nem! combobox

combobox1.Items.Add('yes');
combobox1.Items.Add('hej');

Stoney

den skal ikke tilføje men her:

jeg har en combobox med en masse ting og de er de ting brugeren kan se så vil gerne gi alle de navne et andet navn i et script så når brugeren vælger en ting kan programmet se at brugern fx har valgy hej som så er test så vil gerne kunne gi hver items i min combo deres eget navn

lad os sige det skulle bruges til at fx lave dansk til engensl så combobox1 items 1 er hey og  items 2 er you

hvis jeg forstår dig ret skal du nok over i nogle objects

type
FItems = class(TObject)
  Visual:string;
  Hidden:string;
end;


og så mener jeg det er:

var
obj:FItems;
begin
obj := FItems.Create;
obj.Visual := 'You';
obj.Hidden := 'Dig';
combobox1.Items.addobject(obj, obj.Visual); //Kan ikke huske om den er med disse paramenters....


God Nat

ehm og så er det vidst

var
obj:FItems;
begin
obj := combobox1.Items.item[combobox1.itemindex].object; //kan jeg slet ikke huske....
showmessage('Det betyder: '+obj.hidden);

hvis jeg har en combobox og en edit sp vil jeg kunne gøre sådan at når programmet køre kan jeg væge noget i combobox hvor der er
a
b
c
osv men når jeg vælger a så står der 1 i edit og b er 2 og c er 3 så jeg vil gøre sådan
combobox1.items.lines1 := 'yes' (et fx denne kode virker ikke) men i mit program er der mange 30 stk mm

så hvis jeg i min kode skriver edit1.text := combobox1.items.lines1 er du med nu

edit1.Text := combobox1.Items[0];
hvor 0 er første item i comboboxen

Stoney

ok har testet det nu, og det virker fint.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

type
  FItems = class(TObject)
    Visual: string;
    Hidden: string;
  end;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  obj: FItems;
begin
//Tilføjer et par items
  obj := FItems.Create;
  obj.Visual := 'You';
  obj.Hidden := 'Dig';
  combobox1.Items.AddObject(obj.Visual, obj);

  obj := FItems.Create;
  obj.Visual := 'Hey';
  obj.Hidden := 'Hej';
  combobox1.Items.AddObject(obj.Visual, obj);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  obj: FItems;
begin
  obj := pointer(combobox1.Items.Objects[combobox1.itemindex]);
  edit1.Text := obj.hidden;
end;

end.

hvis du har flere problemer må jeg jo sende en demo til dig.

hvordan skal jeg foreklare det når en bruger vælger en linie i combobox fx linie 5 så skal den gøre så at den finder i en list hvad linie 5 betyder

fx

if combobox1.text := 'hej'
then
edit1.text := 'hey'
else edit1.text := ''

men vil ikke lave alle de if then else kommandoer for alle de punkter der er i min combobox men vil give dem hvert deres navn men kan man ikke gøre så at jeg bruger en listbox hvor at combobox1.items[0] osv går over i en listbox1.items som noget andet text men jeg skal ha lavet det på ca 30 stk (30 linier i combobox)

hvad med Combobox1.Items[0] := edit1.text := 'hey'; så hvis brugeren vælger items0 så står der hey i min edit1 hvordan får jeg den til at virke

hvad er det du ikke kan få til at virke ved det kode jeg har givet dig?
det gør nøjagtigt som du vil ??

vil gøre det mere simpelt