[ComboBox] Pobieranie Value z aktywnego elementu listy

[kapusniaczek]

Witam,

Mam problem. Otóż załóżmy, że mam ComboBox 2 itemy:

Wp=http://wp.pl

Interia=http://interia.pl

Teraz następuje pytanie: Jak pobrać value aktualnie wybranego itema?

próbowałem

Form1.WebBrowser1.Navigate(Form2.ComboBox1.Items.Values[ComboBox1.Items[ComboBox1.ItemIndex]]); -xw8jJ&Ś)n\"jW{3ĘŁxh
bł7^bptf&ÓvV$'&w6W#ćfvFRf&Ó\"6&&FV2fVW5gVCFW&gVC\0&%gjG!Ą*&jwĄzvzgśŚzxĄź~ćnŁui'procedure TForm1.ComboBox1Change(Sender: TObject); 
begin 
 if(ComboBox1.ItemIndex=0) then 
 begin 

 end; 
 if(ComboBox1.ItemIndex=1) then 
 begin 

 end; 
 if(ComboBox1.ItemIndex=2) then 
 begin 

 end; 
end; 
end.

Bo za chwilę będę miał mnóstwo elementów (około 300) i koniec imprezy.

 

Bardzo proszę o pomoc.

Pozdrawiam,

kapusniaczek

[5corpio]

ComboBox1.Items[ComboBox1.ItemIndex]

 

Da Ci aktualną wartość wybraną przecież.

[kapusniaczek]

Nie zrozumiałeś mnie. Tak, da aktualną wartość, ale razem z nazwą, tj.

CYTATInteria=http://interia.pl

A ja potrzebuję uzyskać sam adres

CYTAThttp://interia.pl

Czyli Value z ItemIndex, co mi nie wychodzi.

Nie mogę dać

Form1.WebBrowser1.Navigate(Form2.ComboBox1.Items.Values[ComboBox1.ItemIndex]);

, bo takie coś jest niedozwolone:

Incompatible types: String and Integer.

Ale dzięki za odpowiedź.

Pozdrawiam

[Adam27]

S := ComboBox1.Items[ComboBox1.ItemIndex];
S := Copy(S, Pos('=', S)+1, Length(S));

To powinno pobrać część stringa znajdującą się po znaku równości.

[kapusniaczek]

Super, Adam27, o to mi chodziło! Wielkie dzięki, jesteś wielki

[kapusniaczek]

Jeszcze ostatnie pytanie:

 

Zapisywanie do rejestru działa, jednak już samo odczytywanie nie

procedure TForm2.Button2Click(Sender: TObject);
var
 Reg : TRegistry;
begin
 Reg := TRegistry.Create;
 if Reg.OpenKey('Programiq', False) then
   ShowMessage('Ustawienia zostały zapisane')
   else ShowMessage('Błąd zapisywania ustawień!');

 Reg.WriteString('Kupka', Form2.ComboBox1.Items[ComboBox1.ItemIndex]);
 Reg.Free;
 Form2.Close;
end; s<!z0i\"\"zfzxśuś\"ui'procedure TForm2.FormCreate(Sender: TObject);
var
S: string;
Reg : TRegistry;
begin
Reg := TRegistry.Create;
 if Reg.KeyExists('Programiq') then
 begin
 Reg.OpenKey('Programiq', False);
//pewnie ta linia cos nie gra
  Form2.ComboBox1.Items[ComboBox1.ItemIndex] := Reg.ReadString('Kupka');
//bo reszta to jest dobra
 S :=  Form2.ComboBox1.Items[ComboBox1.ItemIndex];
 S := Copy(S, Pos('=', S)+1, Length(S));
 Client.WebBrowser1.Navigate(S);
 Reg.Free;
 end
 else
 try
 Reg.CreateKey('Programiq');
 Reg.Free;
ShowMessage ('Witam w programie Programiq');
except
ShowMessage ('Error');
end;
 end; 

Wyświetla się błąd przy kompilowaniu:

 

Chciałbym, żeby przy restarcie programu wybierało na formie 2 zapisany item, a następnie analogicznie nawigowało do danej strony. Jednak po prostu na poziomie wczytywania coś nie gra, tylko nie wiem co.

 

 

dzięki z góry za odpowiedź i poświęcony czas!

[xevil21]

Taka konstrukcja:

 

Form2.ComboBox1.Items[ComboBox1.ItemIndex] := Reg.ReadString('Kupka');

 

nie zadziała, ponieważ na początku programu wartość ComboBox1.ItemIndex jest równa "-1"!!!

 

Nadaj jej odpowiednią wartość!!!

 

Pozdrawiam!

[xevil21]

Sorki za 2gi post, ale edycja źle działa...

 

Może zrób to tak:

 

procedure TForm2.FormCreate(Sender: TObject);
var
S: string;
Reg : TRegistry;
begin
Reg := TRegistry.Create;
 if Reg.KeyExists('Programiq') then
 begin
 Reg.OpenKey('Programiq', False);
//pewnie ta linia cos nie gra
  S := Reg.ReadString('Kupka');
//bo reszta to jest dobra
 S := Copy(S, Pos('=', S)+1, Length(S));
 Client.WebBrowser1.Navigate(S);
 Reg.Free;
 end
 else
 try
 Reg.CreateKey('Programiq');
 Reg.Free;
ShowMessage ('Witam w programie Programiq');
except
ShowMessage ('Error');
end;
 end;

[kapusniaczek]

Dzięki, będę pamiętał o tym ItemIndex

Co do tego drugiego sposobu - tak próbowałem, tylko że to rozwiazanie ma jedna zasadnicza wade: nie wybiera w combobox tego elementu. Jutro jeszcze poprobuje z tym podzialac.

Bardzo Wam dziekuje za pomoc.

 

//post pisany na telefonie, sorry za brak polskich znakow.