Clear berfungsi untuk menghapus semua anggota list tanpa kecuali. Untuk list yang berupa array, sebenarnya cukup menggunakan program seperti ini:
procedure Clear();
begin
Count := 0;
end;
Prosedur Clear di atas berjalan sangat cepat dan sesuai yang diharapkan. Tetapi kalau kamu ingin lebih sopan, kamu bisa membuat prosedur Clear seperti ini:
procedure Clear();
begin
while (Count > 0) do
Delete(0);
end;