Function for sorting memo

In this example:

Code File:

 
Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) memo1: tmemo; button1: tbutton; procedure button1click (Sender: tobject); Procedure formcreate (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} {function for sorting memo} procedure sortmemo (const M: tmemo); begin with tstringlist. create do begin sorted: = true; text: = m. text; M. text: = text; free; end; {test} procedure tform1.formcreate (Sender: tobject); begin memo1.align: = alleft; memo1.lines. commatext: = 'zzz, XXX, YYY, AAA, CCC, BBB, 100'; button1.caption: = 'order'; end; Procedure tform1.button1click (Sender: tobject ); begin sortmemo (memo1); end.

  
 

Form file:

 
Object form1: tform1 left = 0 Top = 0 caption = 'form1' clientheight = 143 clientwidth = 166 color = clbtnface font. charset = default_charset font. color = clwindowtext font. height =-11 font. name = 'tahoma 'font. style = [] oldcreateorder = false position = podesktopcenter oncreate = formcreate pixelsperinch = 96 textheight = 13 object memo1: tmemo left = 0 Top = 8 width = 73 Height = 89 lines. strings = ('memo1') taborder = 0 end object button1: tbutton left = 79 Top = 32 width = 75 Height = 25 caption = 'button1' taborder = 1 onclick = button1click endend