From c6194d5db7281596769a99c99ae4b19682ba3b18 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Fri, 20 Feb 2015 11:36:30 +0100 Subject: [PATCH] cleaner syntax --- src/ce_messages.pas | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/ce_messages.pas b/src/ce_messages.pas index b6d7e59d..8188cb59 100644 --- a/src/ce_messages.pas +++ b/src/ce_messages.pas @@ -485,11 +485,8 @@ var msgdt: PMessageData; begin if aCtxt = amcAll then - begin - List.Items.Clear; - exit; - end; - for i := List.Items.Count-1 downto 0 do + List.Items.Clear + else for i := List.Items.Count-1 downto 0 do begin msgdt := PMessageData(List.Items[i].Data); if msgdt^.ctxt = aCtxt then