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!