ustify"> {$ R *. dfm} CreateList (var ListN, ListK: PElement; I: char); (ListN);: = ListN; ^. Data: = I; ^. Next: = nil ;; AddFirst (var ListN, ListK: PElement);: PElement;: = ListN; Elem <> nil do: = ListN ^. Next; (Elem);: = ListN;;: = nil;; TForm1.FormCreate (Sender: TObject); ;: = nil;: = nil;; TForm1.FormClose (Sender: TObject; var Action: TCloseAction); (ListBegining, ListEnding);; Add (var ListN, ListK: PElement; I: char);: PElement; ListN = nil then (ListN, ListK, I) i <= ListN ^. Data then (ListN, ListK, I) i> = ListK ^. Data then (ListN, ListK, I): = ListN; (ListC ^. next ^. Data) <= i do: = then.Memo.Lines.Add ('Пусто'); ListC <> nil do (i);. Memo.Lines.Add (IntToStr (i) + ') Адреса:' + ('% p', [ListC] ) + '| Елемент:' + ListC ^. Data +
'| Наступний:' + Format ('% p', [ListC.Next]));: = ListC ^. next;;; TForm1.ButtonAddClick (Sender: TObject);: char; : = EditData.Text [1]; (ListBegining, ListEnding, I); ('Невірний формат вводу');;;; TForm1.ButtonAddRandomClick (Sender: TObject); j: Integer;: char; j: = 1 to SpinEdit . Value do: = chr (ord ('а') + Random (33)); (ListBegining, ListEnding, I);;;;
TForm1.ButtonLoadClick (Sender: TObject);: TextFile;: char; OpenDialog.Execute then (DataFile, OpenDialog.FileName); (DataFile); not Eof (DataFile) do (Datafile, I) ; (ListBegining, ListEnding, I);; ('Некоректні дані');; (DataFile);;
except ('Не вдалося відкрити текстовий файл');
end; ('Файл не заданий');;; TForm1.ButtonClearClick (Sender: TObject); (ListBegining, ListEnding);;; TForm1.ButtonSearchClick (Sender: TObject);, lastb: PElement ;: integer;: boolean;: = ListBegining;: = 0;: = false; listC <> nil : = True;;;: = listC ^. Next;; f then.Caption: = 'Номер першої голосної букви:' + inttostr (num). Caption: = 'не знайдено';; TForm1.ButtonRefreshClick (Sender: TObject) ;
begin;;.
В
