如何对单词进行降序排列 ( 积分: 0 )

在一个Memo控件中,有一个单词列表,如何编辑,实现把这个无序排列单词列表,排列成为排
单词首字母Z-A的顺序排列,谢谢.排列结果如下(举例):
yet
years
yearly
world's
working
work
without
with
whose
who
while
which
whether
when
wellbeing
well
weary
weariness
wealth
we
way
was
wages
volume
very
vehemence
vast
uses
use
up
unmixed
unless
unity
unhealthy
unhappy
undertaught
two
true
towns
town
towards
toil
together
to
times
time
thus
through
thoughts
though
those
this
they
these
therefore
thereby
there
thenceforth
then
themselves
them
their
the
that
than
tenfold
tend
survey
surround
support
suggests
suffering
study
steam-engine
steady
spread
spirit
speaking
source
some
social
so-called
so
slaves
slavery
side
sickness
should
share
setting
seriously
seldom
scope
risen
resources
residuum
requisites
religious
religion
relieved
relations
rejoicing
regarded
refinement
refined
reconciling
reconcile
recent
reach
rank
quite
quiet
put
provide
progress
procures
proclaimed
probably
principles
prevented
preliminary
predominant
poverty
possessing
poor
political
pleasures
places
physical
phrase
person's
person
perhaps
people
partly
part
pain
overworked
over
ourselves
our
ought
others
other
ordinary
ordinance
order
or
opportunity
only
one
on
olden
often
off
of
numbers
nowhere
now
nourished
nothing
not
no
nineteenth
need
necessary
necessarily
nearly
nature
natural
much
moulded
motives
most
more
moral
mind
military
mental
may
material
marshall
many
man's
mankind
man
making
makes
make
long
lives
livelihood
little
life
less
leisure
lead
last
large
know
its
it
is
introductory
introduction
intense
insufficient
inquire
influences
influence
individual
indeed
increasing
increases
incomplete
income
in
improved
important
import
imperfectly
ill-health
ignorance
if
ideals
hundred
house-room
hours
hope
history
his
highest
higher
here
he
having
have
has
hardly
hard
happiness
greater
great
gradually
god
go
generally
fulness
full
front
from
friendship
forming
formed
for
food
find
fills
few
feelings
feeling
feel
far
family
fails
faculties
extreme
extinguished
extends
exhausting
exerted
examines
evils
evil
every-day
even
especially
engaged
employers
employees
education
economy
economics
economic
earns
earned
early
during
due
doubt
doomed
displaced
direct
dignity
difference
developing
destruction
derives
densely
degrading
degradation
decencies
deaden
cultured
crowded
country
contented
consequences
connected
conditions
complete
commonly
comes
clothing
closely
classes"
classes
christian
chief
character
chapter
chance
century
causes
caused
cause
careworn
called
by
but
business
brought
broken
broadly
both
book
bodies
birth
best
being
beginning
been
become
be
attainment
at
associates
asserted
as
artistic
aristotle
are
ardour
any
and
an
amounts
amount
always
although
almost
all
alfred
agencies
affections
addition
action
accountable
accountability
account
a

用CustomSort方法即可实现降序排列，请参考：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1620768

谢谢,补充一个问题,请指点.
在一个memo控件中,有一段英文文本,包含标点符号和空格,如何才能把这段英文文本中所有的单词(不包含标点)提取出来,一个单词一行的排列在memo2控件中呢.要求,排列在memo2中的单词列表不包含重复的单词.

先用一个for循环将除了英文字符之外的所有其它字符都替换成逗号(",&quot，然后用
TStringList的CommaText属性读入字符串列表。Sort排序后再用循环填入Memo2.Lines。

... //第一个for循环自己搞定
SL:=TStringList.Create;
SL.CommaText:=Str; //将字符串按逗号分隔进行分解
SL.Sort;
mstr:='';
for i:=0 to Pred(SL.Count) do
if SL<>mstr then
begin
mstr:=SL;
Memo2.Lines.Add(mstr);
end;
SL.Free;

ps: 建议楼主把问题贴中那些占地方的东西删掉——说几句就都明白了，没必要列出来。