Delhi. Вставить элемент, не могу найти ошибку
Вложений: 1
Всем привет!
написать программу,которая вставляет в список L элемент E1, после элемента E, если Е входит в L. ничего не выводит((( |
помогите пожалуйста
исправила чуть-чуть, выводит но не совсем то.... очень срочно нужно type spisok=^zveno; zveno=record el:string; sled:spisok; end; var L:spisok; tec, tec1, tec2, tec1_el:spisok; e,e1:string; i:integer; f:boolean; procedure sp(E1,E:spisok; var L:spisok); begin ; end; procedure TForm1.Button1Click(Sender: TObject); begin L:=nil; for i:=1 to memo1.Lines.count do begin new(tec); tec^.el:=memo1.Lines[i-1]; tec^.sled:=L; L:=tec; end; memo1.Clear; tec:=L; while tec<>nil do begin memo1.Lines.Add(tec^.el); tec:=tec^.sled; end; end; procedure TForm1.Button2Click(Sender: TObject); begin tec2:=L; tec1:=L; e:=Edit2.Text; e1:=Edit1.Text; f:=true; new(tec1_el); tec1_el^.el:=e1; while (tec1<> nil) and f do begin if tec1^.el=Edit2.Text then begin f:=false; tec2:=tec1^.sled; end else begin Memo2.Lines.Add(tec2^.el); tec1:=tec1^.sled; end; end; tec1_el:=tec2^.sled; tec2^.sled:=tec1_el; if f=false then while tec2<>nil do begin Memo2.Lines.Add(tec2^.el); tec2:=tec2^.sled; end; end; end. |
Часовой пояс GMT +4, время: 03:55. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.