Динамический список

@Caumonas · Регистрация: 18.09.2015

Author24 — интернет-сервис помощи студентам

Задача такова: "Перенести в начало непустого списка L его последний элемент"
Список создал, но не могу понять, как осуществить перенос элемента. Помогите, кто чем может.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
type
  link=^item;
  item = record
    v: link;
    g: integer;
  end;
var
  p,b:link;
  i,l:integer;
begin
  b:=nil;
  for i:= 1 to Memo1.Lines.Count do
    begin
      new(p);
      p^.g:=strtoint(Memo1.Lines[i-1]);
      p^.v:=b;
      b:=p;
    end;
  for i:= 1 to Memo1.Lines.Count do
    begin
      l:=p^.g;
      Memo2.Lines.Add(inttostr(p^.g));
      p:=p^.v;
    end;
 
 
end;
 
end.

@Krutko · 30.03.2017, 18:46

Узнайте порядковый номер последнего элемента и сделайте его номер 0

Delphi

procedure TForm1.btn1Click(Sender: TObject);
var
index:Integer;
begin
index:=mmo1.lines.Count;
mmo1.lines[0]:=mmo1.lines[index-1];
end;

	30.03.2017, 18:46