|
|
|
Prohození řádků v Memo
|
05.12.2009
|
Úvod
Někdy je potřeba prohodit mezi sebou dva určité řádky v textu. Toto je jednoduchý příkaz, kterým se to dá udělat. Čísla v závorce určují čísla řádků (první řádek=0, druhý řádek=1 atd.).
Prvky
Button1
Memo1 (Lines: první; druhý)
Kód
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.lines.Exchange(1,0);
end;
|
|
|
