Supressing blank lines

IanT

I'm writing a report which produces mailing labels, so I have name and several address fields on separate lines. How do I suppress lines where the field contents are blank, so that following lines close up without leaving vertical gaps ?

gordk

you should always delete in reverse order

procedure mLabelOnAfterData(Sender: TfrxComponent);
var i: integer;

begin
for i := TfrxMemoView(Sender).Lines.Count - 1 downto 0 do
begin
if TfrxMemoView(Sender).Lines.Strings = '' then
TfrxMemoView(Sender).Memo.Delete(i);
end;
end;