Trieple-Six

Penghapusan List / Deletion

Penghapusan dilakukan dengan tahapan :

• Lepaskan elemen dari rantai Linked-List.
• Bebaskan memori yang digunakan dengan DISPOSE atau RELEASE.

a. Penghapusan elemen pertama
 
    Procedure HapusElemenPertama (Var Kepala : List);
    Begin
             If Kepala <> Nil Then
             Begin
                       P := Kepala;
                       Kepala := Kepala^. Berikut; {Kepala maju untuk menuju
                       Dispose (P); elemen berikutnya}
                  End;
              End;
 
b. Penghapusan elemen terakhir

    Procedure HapusElemenAkhir (Var Kepala : List; P : List);
    Var
         Akhir, PreAkhir : List;
    Begin
             If Kepala <> Nil Then
            Begin
                Akhir := Kepala;
                PrecAkhir := Nil;
                                              While (Akhir ^. Berikut <> Nil) Do
               Begin
                      PrecAkhir := Akhir;
                     Akhir := Akhir^. Berikut;
                 End;
                 P:= Akhir;
                 If PrecAkhir = Nil Then {Elemen List hanya satu}
                       Kepala := Nil
                 Else
                        PrecAkhir^. Berikut := Nil;
                 If P <> Nil Then Dispose (P);
            End;
         End;

c. Penghapusan elemen sesudah P

    Procedure HapusElemenSesudah (Var P : List);
    {List Tidak Boleh Kosong !!}
      Var
               Prec : List;
               Begin
                           If P^. Berikut <> Nil Then
                           Begin
                                         Prec := P^. Berikut;
                                         P^. Berikut := Prec^. Berikut; {Alamat P yangberikutnya}
                                         Dispose (Prec);
                          End;
                     End;


Sumber dari : http://www.yudasy.web.id