memo daki satir degisimi

[sr1111]

memodaki satirlari en alttan üstte yer değişirmek istiyorum fakat yapamadim.
alltan uste doğru yani şöyle


elazidaki banka
konyadaki tepelerde
ceyhanın suyu


bu sekilde olmali

ceyhanın suyu
konyadaki tepelerde
elazidaki banka

[greenegitim]

bir memtable ile alanlara aktarıp int,ve varchar iki alan daha sonra örneğin
id=1 yazi= elazidaki banka
id=2 yazi= konyadaki tepelerde
id=3 yazi= ceyhanın suyu

sonra bunu tersten sıralayıp

id=3 yazi= ceyhanın suyu
id=2 yazi= konyadaki tepelerde
id=1 yazi= elazidaki banka

sonra tekrark memoya atsak daha kolay yolu belkide vardır?

[SimaWB]

Exchange özelliğini tam da bu iş için bence:

Kod: Tümünü seç

var
  i, cnt:integer;
begin
  cnt := Memo1.Lines.Count;
  for i := 0 to (cnt div 2)-1 do
    Memo1.Lines.Exchange(i,cnt-1-i);

[sr1111]

tesekkur ederim simawb tam istedigim gibi ve kolay bir yoldan olmuş

Exchange özelliğini tam da bu iş için bence:

Kod: Tümünü seç

var
  i, cnt:integer;
begin
  cnt := Memo1.Lines.Count;
  for i := 0 to (cnt div 2)-1 do
    Memo1.Lines.Exchange(i,cnt-1-i);