small bug fix

This commit is contained in:
Christian Hammacher
2005-11-19 20:37:44 +00:00
parent fc6a193765
commit 803852ee0c
7 changed files with 20 additions and 17 deletions

View File

@ -473,7 +473,7 @@ begin
if Pos('(', eStr) = 0 then
Result := ''
else
Result := Trim(Copy(eStr, 1, Pos('(', eStr)));
Result := Trim(Copy(eStr, 1, Pos('(', eStr) -1));
end;
end.