2006/03/21 (火) 04:00:31        [qwerty]
if (Copy(s,1,1)='-') then