Listbox, Text zwischen ( ) ausgeben

[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:

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!