كيفية اظهار اسطر ال richedit وال memo تصاعديا

[jeanjamil]

السلام عليكم
كيفية تعديل هذا الكود 

PHP كود :

  if points>=strtoint(memo1.Lines.Strings[1]) then
        begin
           label1.Caption:=richedit1.lines.strings[1];

              end;
                if points>=strtoint(memo1.Lines.Strings[2])  then
        begin
           label1.Caption:=richedit1.lines.strings[2];

                end;
                 if points>=strtoint(memo1.Lines.Strings[3]) then
        begin
           label1.Caption:=richedit1.lines.strings[3];

                end; 


حيث تتصاعد الارقام تلقائيا الى نهاية ال memo وال richedit

[PLANSHARP]

إذا كان المقصود هو sorting جرب هذا الرابط:

http://stackoverflow.com/questions/19591...-in-delphi