Listbox, Text zwischen ( ) ausgeben

[quakergod]

hi, ich habe eine listbox mit einträgen, jetzt soll wenn man eintrag anklickt der text der zwischen den klammern im eintrag steht in ein label geschrieben werden!

Beispiel:

das sind die einträge in der listbox:

Delphi-Quellcode:

Aegypten (+20)
Aequatorial Guinea (+240)
Aethiopien (+251)
Afghanistan (+93)
Albanien (+355)
Algerien (+213)
Andorra (+376)
Angola (+244)
Anguilla (+1809)
Antarktis (+672)
Antigua und Barbuda (+1809)
Argentinien (+54)
Armenien (+374)
Aruba (+297)

wenn der eintrag "Albanien" angelickt wird soll "+355" in einem label stehen..

wie mache ich das? :gruebel:
danke! :)

[SirThornberry]

schau dir dazu mal die funktionen "pos", "copy" und "PosEx" an

[runningsoft]

Vorher musst du natürlich noch den String bestimmen, auf den Du geklickt hast.

Also im OnClick-Ereignis der ListBox:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var Eintrag : String;
begin
Eintrag := ListBox1.Items[ListBox1.ItemIndex];
end;

Steffen

[TimonWorld]

Du meinst dass hier:

Delphi-Quellcode:

function TForm1.HohleKlammer(s1:string):string;
var i,Lesen:integer;
    s2:String;
begin
    Lesen:=0;
    for i:=1 to length(s1) do
    begin
      if s1[i]=')' then Lesen:=0;
      if Lesen=1 then s2:=s2+s1[i];
      if s1[i]='(' then Lesen:=1;
    end;
    result:=s2;
end;

Den Code hat mal mein Vater für mich geschrieben, da ich ihn für mein smileyprogramm (Smiley PASTE!) auch brauchte und dann einfach so auslesen:

Delphi-Quellcode:

label1.caption := HohleKlammer(listbox1.Items.Strings[listbox1.itemindex])

denn dieses problem hatte ich auch mal nur vor ca. 2 jahren konnte ich noch sehr wenig delphi!