No hay respuestas en este tema

[FELIX]

saludos Comunidad
tengo un programa que cuenta lineas de codigo, pero no se como hacer para que no me cuente las lineas en blanco.
tengo el contador de lineas q me las toma el memo1

delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,c,contadorlineas:Integer;
 
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
contadorlineas:=Memo1.Lines.Count;