Aber da hat er schon recht, es wäre besser, wenn du die beiden Abfragen vertauschen würdest.
Also so:
Delphi-Quellcode:
start := at-1;
while (start > 0)
and (aValue[start]
in permittedChar)
do
begin
Dec (start)
end;
stop := at;
while (stop < length(aValue))
and (aValue[stop+1]
in permittedChar)
do
begin
Inc (stop)
end;
Mytext:= Copy (aValue, start+1, stop - start );
Und schlate ruhig die Bereichsprüfung ein
P.S. "funktioniert nicht" ist irgendwie ne doofe Fehlerbeschreibung