pos, posex, finden von Text

[RomanK]

Hoi Dominik, ich hab deinen Code mal nen bissle Modifizert so dass er zumindest bei mir tut:

Delphi-Quellcode:

s := memo1.Lines.Text;
start := pos('{',s);
while (start>0) do
begin 
stop := posex ('}',s,start);
vname:=copy(s,start+1,stop-start-1);
showmessage(vname); 
zs:=Start+1; // letzte fundstelle von '{' + 1, es würde auch stop gehen.
start := posex('{',s,zs);
end;