4 respuestas en este tema

[FELIX]

saludos comunidad.

estoy tratando de hacer una palicacion que lea lineas de codigo hasta lo q tengo empieza a leer las lineas despues del Implementation, no me lee las lineas en blanco pero como hago para no leer las lineas empiezan con el begin, end, un comentario o que rtengan { ??? 

delphi

procedure TForm1.Button1Click(Sender: TObject);
var Texto:TStringList;
var i,c,a,contadorlineas,inicio:Integer;
begin
contadorlineas:=0;
Texto:=TstringList.Create;.
if OpenDialog1.Execute then
    begin
    Texto.LoadFromFile(OpenDialog1.FileName);
    Memo1.Lines:=Texto;
    c:=0;
        for i:=0 to Texto.Count -1 do
            begin
             if Pos('implementation',texto.Strings[i])>0 then
                begin
                 c:=i+1;
                 for inicio :=c to texto.Count-1 do
                         begin
                              if Texto[inicio]<>''then
                                  contadorlineas := contadorlineas +1;
                                   end;
                         end;
                end;
             end;
         totallineas.Text:=IntToStr(contadorlineas);
  end;[/i]

[felipe]

Podrias declarar las condiciones en un vector, luego dentro del ciclo for hacer la validación.


Saludos!

[FELIX]

en el for trato de validar pero solo me valida lineas q esta en blanco

delphi

for inicio :=c to texto.Count-1 do
      begin 
          if Texto[inicio]<>'' then             
           contadorlineas := contadorlineas +1;  
       end;

[felipe]

A lo que me refiero es que tengas en el vector ya declaradas cuales son las palabras claves de no debe contar, ejemplo:

delphi

const palabras: array[1..5] of string = (' ', 'begin', 'end', '//', '{');

ya tendrás que hacer las respectivas pruebas.


Saludos!

[FELIX]

OK GRACIAS VOY A PROBAR EL CODIGO