Código Delphi [-] var datos : TStringList; i : Integer; elemento : String; begin for i := 0 to datos.count-1 do begin elemento := datos[i]; ...... end;
var datos : TStringList; i : Integer; elemento : String; begin for i := 0 to datos.count-1 do begin elemento := datos[i]; ...... end;