Supressing blank lines
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 ?
Comments
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;